me/guix
Archived
1
0
Fork 0
Code Activity

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