me/guix
Archived
1
0
Fork 0
Code Activity

gnu: abcde: Use 'modify-phases'.

Browse source 
* gnu/packages/cdrom.scm (adcde)[arguments]: Use 'modify-phases'.
This commit is contained in:
Efraim Flashner 2016-03-13 20:41:57 +02:00
parent 1bb4005fbd
commit 7df85799b1
1 changed files with 29 additions and 30 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

59
gnu/packages/cdrom.scm
View file

@ -304,37 +304,36 @@ from an audio CD.")
(string-append "etcdir = $(prefix)/etc\n")))))) (string-append "etcdir = $(prefix)/etc\n"))))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
'(#:phases (alist-replace '(#:phases
'configure (modify-phases %standard-phases
(lambda* (#:key outputs inputs #:allow-other-keys) (replace 'configure
(substitute* "Makefile" (lambda* (#:key outputs inputs #:allow-other-keys)
(("^prefix = .*$") (substitute* "Makefile"
(string-append "prefix = " (("^prefix = .*$")
(assoc-ref outputs "out") (string-append "prefix = "
"\n")))) (assoc-ref outputs "out")
(alist-cons-after "\n")))))
'install 'wrap (add-after 'install 'wrap
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(let ((wget (assoc-ref inputs "wget")) (let ((wget (assoc-ref inputs "wget"))
(vorbis (assoc-ref inputs "vorbis-tools")) (vorbis (assoc-ref inputs "vorbis-tools"))
(parano (assoc-ref inputs "cdparanoia")) (parano (assoc-ref inputs "cdparanoia"))
(which (assoc-ref inputs "which")) (which (assoc-ref inputs "which"))
(discid (assoc-ref inputs "cd-discid")) (discid (assoc-ref inputs "cd-discid"))
(out (assoc-ref outputs "out"))) (out (assoc-ref outputs "out")))
(define (wrap file) (define (wrap file)
(wrap-program file (wrap-program file
`("PATH" ":" prefix `("PATH" ":" prefix
(,(string-append out "/bin:" (,(string-append out "/bin:"
wget "/bin:" wget "/bin:"
which "/bin:" which "/bin:"
vorbis "/bin:" vorbis "/bin:"
discid "/bin:" discid "/bin:"
parano "/bin"))))) parano "/bin")))))
(for-each wrap (for-each wrap
(find-files (string-append out "/bin") (find-files (string-append out "/bin")
".*")))) ".*"))))))
%standard-phases))
#:tests? #f)) #:tests? #f))
(inputs `(("wget" ,wget) (inputs `(("wget" ,wget)