ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 13:58:15 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: ijs: Use modify-phases syntax.

Browse source 
* gnu/packages/ghostscript.scm (ijs)[arguments]: Use modify-phases.
This commit is contained in:
Leo Famulari 2017-05-29 04:42:37 -04:00
parent d6158fe70d
commit 1c09eb9948
No known key found for this signature in database
GPG key ID: 2646FA30BACA7F08
1 changed files with 17 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
gnu/packages/ghostscript.scm
View file

@ -5,6 +5,7 @@
;;; Copyright © 2013, 2015, 2016 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2013, 2015, 2016 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2017 Alex Vong <alexvong1995@gmail.com> ;;; Copyright © 2017 Alex Vong <alexvong1995@gmail.com>
;;; Copyright © 2017 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2017 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2017 Leo Famulari <leo@famulari.name>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -246,8 +247,8 @@ (define-public ijs
("autoconf" ,autoconf))) ("autoconf" ,autoconf)))
(arguments (arguments
`(#:phases `(#:phases
(alist-cons-after (modify-phases %standard-phases
'unpack 'autogen (add-after 'unpack 'autogen
(lambda _ (lambda _
;; need to regenerate macros ;; need to regenerate macros
(system* "autoreconf" "-if") (system* "autoreconf" "-if")
@ -255,15 +256,13 @@ (define-public ijs
(substitute* "autogen.sh" (substitute* "autogen.sh"
(("^.*\\$srcdir/configure.*") "")) (("^.*\\$srcdir/configure.*") ""))
(system* "bash" "autogen.sh") (system* "bash" "autogen.sh")
;; create configure script in ./ijs/ ;; create configure script in ./ijs/
(chdir "ijs") (chdir "ijs")
;; do not run configure ;; do not run configure
(substitute* "autogen.sh" (substitute* "autogen.sh"
(("^.*\\$srcdir/configure.*") "") (("^.*\\$srcdir/configure.*") "")
(("^ + && echo Now type.*$") "")) (("^ + && echo Now type.*$") ""))
(zero? (system* "bash" "autogen.sh"))) (zero? (system* "bash" "autogen.sh")))))))
%standard-phases)))
(synopsis "IJS driver framework for inkjet and other raster devices") (synopsis "IJS driver framework for inkjet and other raster devices")
(description (description
"IJS is a protocol for transmission of raster page images. This package "IJS is a protocol for transmission of raster page images. This package