ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-26 06:18:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: image: Return #t from all phases.

Browse source 
* gnu/packages/image.scm (libpng-apng, pngcrush, leptonica, zimg)
(perceptualdiff): Return #t from all phases.
This commit is contained in:
Mark H Weaver 2018-06-27 20:42:35 -04:00
parent cb8ba848d2
commit fccacffbf4
No known key found for this signature in database
GPG key ID: 7CEF29847562C516
1 changed files with 14 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
gnu/packages/image.scm
View file

@ -136,15 +136,15 @@ (define-public libpng-apng
(add-after 'unpack 'patch-apng
(lambda* (#:key inputs #:allow-other-keys)
(define (apply-patch file)
(zero? (system* "patch" "-p1" "--force"
"--input" file)))
(invoke "patch" "-p1" "--force"
"--input" file))
(let ((apng.gz (assoc-ref inputs "apng")))
(format #t "Applying APNG patch '~a'...~%"
apng.gz)
(and
(zero?
(system (string-append "gunzip < " apng.gz " > the-patch")))
(apply-patch "the-patch")))))
(invoke "sh" "-c"
(string-append "gunzip < " apng.gz " > the-patch"))
(apply-patch "the-patch")
#t)))
(add-before 'configure 'no-checks
(lambda _
(substitute* "Makefile.in"
@ -239,7 +239,8 @@ (define-public pngcrush
(string-append vardef (assoc-ref inputs "zlib") "/"))
;; The Makefile is written by hand and not using $PREFIX
(("\\$\\(DESTDIR\\)/usr/")
(string-append (assoc-ref outputs "out") "/"))))))))
(string-append (assoc-ref outputs "out") "/")))
#t)))))
(inputs
`(("libpng" ,libpng)
("zlib" , zlib)))
@ -473,14 +474,15 @@ (define-public leptonica
(modify-phases %standard-phases
(add-after 'unpack 'autogen
(lambda _
(zero? (system* "sh" "autobuild"))))
(invoke "sh" "autobuild")))
(add-after 'unpack 'patch-reg-wrapper
(lambda _
(substitute* "prog/reg_wrapper.sh"
((" /bin/sh ")
(string-append " " (which "sh") " "))
(("which gnuplot")
"true")))))))
"true"))
#t)))))
(home-page "http://www.leptonica.com/")
(synopsis "Library and tools for image processing and analysis")
(description
@ -1083,7 +1085,7 @@ (define-public zimg
(modify-phases %standard-phases
(add-after 'unpack 'autogen
(lambda _
(zero? (system* "sh" "autogen.sh")))))))
(invoke "sh" "autogen.sh"))))))
(synopsis "Scaling, colorspace conversion, and dithering library")
(description "Zimg implements the commonly required image processing basics
of scaling, colorspace conversion, and depth conversion. A simple API enables
@ -1116,7 +1118,8 @@ (define-public perceptualdiff
;; of the source tree, one level higher than expected
(lambda _
(substitute* "test/run_tests.bash"
(("../build") "../../build")))))))
(("../build") "../../build"))
#t)))))
(home-page "https://github.com/myint/perceptualdiff")
(synopsis "Perceptual image comparison utility")
(description "PerceptualDiff visually compares two images to determine