ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-25 20:19:18 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: cups: Use 'modify-phases'.

Browse source 
* gnu/packages/cups.scm (cups)[arguments]: Use 'modify-phases'.
This commit is contained in:
Efraim Flashner 2016-08-15 11:22:59 +03:00
parent 8337cb210d
commit 3064d1763b
No known key found for this signature in database
GPG key ID: F4C1D3917EACEE93
1 changed files with 98 additions and 104 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
gnu/packages/cups.scm
View file

@ -178,16 +178,13 @@ (define-public cups
'("--disable-launchd"
"--disable-systemd")
#:phases
(alist-cons-before
'configure
'patch-makedefs
(modify-phases %standard-phases
(add-before 'configure 'patch-makedefs
(lambda _
(substitute* "Makedefs.in"
(("INITDIR.*=.*@INITDIR@") "INITDIR = @prefix@/@INITDIR@")
(("/bin/sh") (which "sh"))))
(alist-cons-before
'check
'patch-tests
(("/bin/sh") (which "sh")))))
(add-before 'check 'patch-tests
(lambda _
(let ((filters (assoc-ref %build-inputs "cups-filters"))
(catpath (string-append
@ -244,10 +241,8 @@ (define-public cups
(("cupsFileFind\\(\"cat\", \"/bin\"")
(string-append "cupsFileFind(\"cat\", \"" catpath "\""))
(("cupsFileFind\\(\"cat\", \"/bin:/usr/bin\"")
(string-append "cupsFileFind(\"cat\", \"" catpath "\"")))))
(alist-cons-after
'install
'install-cups-filters-symlinks
(string-append "cupsFileFind(\"cat\", \"" catpath "\""))))))
(add-after 'install 'install-cups-filters-symlinks
(lambda* (#:key inputs outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))
(cups-filters (assoc-ref inputs "cups-filters")))
@ -292,8 +287,7 @@ (define-public cups
(let ((data "/share/cups/data"))
(delete-file-recursively (string-append out data))
(symlink (string-append cups-filters data)
(string-append out data)))))
%standard-phases)))))
(string-append out data)))))))))
(inputs
`(("avahi" ,avahi)
("gnutls" ,gnutls)