me/guix
Archived
1
0
Fork 0
Code Activity

gnu: netpbm: Use 'modify-phases' syntax.

Browse source 
* gnu/packages/netpbm.scm (netpbm)[arguments]: Do it.
This commit is contained in:
Federico Beffa 2016-05-13 15:32:49 +02:00
parent 5fdd142072
commit 1de1c56db7
1 changed files with 42 additions and 44 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
gnu/packages/netpbm.scm
View file

@ -99,9 +99,9 @@
("python" ,python-wrapper))) ("python" ,python-wrapper)))
(arguments (arguments
`(#:phases `(#:phases
(alist-replace (modify-phases %standard-phases
'configure (replace 'configure
(lambda _ (lambda* (#:key inputs outputs #:allow-other-keys)
(copy-file "config.mk.in" "config.mk") (copy-file "config.mk.in" "config.mk")
(chmod "config.mk" #o664) (chmod "config.mk" #o664)
(let ((f (open-file "config.mk" "a"))) (let ((f (open-file "config.mk" "a")))
@ -111,9 +111,8 @@
(display "JPEGLIB = libjpeg.so\n" f) (display "JPEGLIB = libjpeg.so\n" f)
(display "ZLIB = libz.so\n" f) (display "ZLIB = libz.so\n" f)
(display (string-append "LDFLAGS += -Wl,-rpath=" %output "/lib") f) (display (string-append "LDFLAGS += -Wl,-rpath=" %output "/lib") f)
(close-port f))) (close-port f))))
(alist-cons-before (add-before 'check 'setup-check
'check 'setup-check
(lambda _ (lambda _
;; install temporarily into /tmp/netpbm ;; install temporarily into /tmp/netpbm
(system* "make" "package") (system* "make" "package")
@ -126,9 +125,8 @@
(("all-in-place.test") "") (("all-in-place.test") "")
(("pnmpsnr.test") "") (("pnmpsnr.test") "")
(("pnmremap1.test") "") (("pnmremap1.test") "")
(("gif-roundtrip.test") ""))) (("gif-roundtrip.test") ""))))
(alist-replace (replace 'install
'install
(lambda* (#:key outputs make-flags #:allow-other-keys) (lambda* (#:key outputs make-flags #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))) (let ((out (assoc-ref outputs "out")))
(apply system* "make" "package" (apply system* "make" "package"
@ -141,8 +139,8 @@
(system* "rm" "-r" (string-append out "/misc")) (system* "rm" "-r" (string-append out "/misc"))
(with-directory-excursion out (with-directory-excursion out
(for-each delete-file (for-each delete-file
'("config_template" "pkginfo" "README" "VERSION"))))) '("config_template" "pkginfo" "README"
%standard-phases))))) "VERSION")))))))))
(synopsis "Toolkit for manipulation of images") (synopsis "Toolkit for manipulation of images")
(description (description
"Netpbm is a toolkit for the manipulation of graphic images, including "Netpbm is a toolkit for the manipulation of graphic images, including