futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gnu: kbd: Use 'modify-phases'.

Browse Source 
* gnu/packages/linux.scm (kbd)[arguments]: Use 'modify-phases'.
This commit is contained in:
Alex Kost 2016-04-08 21:57:11 +03:00
parent a1ccefaa12
commit 5953d2b7c0
1 changed files with 20 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
gnu/packages/linux.scm
View File

@ -1485,27 +1485,26 @@ system.")
"tty")))))) "tty"))))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
'(#:phases (alist-cons-before '(#:phases
'build 'pre-build (modify-phases %standard-phases
(lambda* (#:key inputs #:allow-other-keys) (add-before 'build 'pre-build
(let ((gzip (assoc-ref %build-inputs "gzip")) (lambda* (#:key inputs #:allow-other-keys)
(bzip2 (assoc-ref %build-inputs "bzip2"))) (let ((gzip (assoc-ref %build-inputs "gzip"))
(substitute* "src/libkeymap/findfile.c" (bzip2 (assoc-ref %build-inputs "bzip2")))
(("gzip") (substitute* "src/libkeymap/findfile.c"
(string-append gzip "/bin/gzip")) (("gzip")
(("bzip2") (string-append gzip "/bin/gzip"))
(string-append bzip2 "/bin/bzip2"))))) (("bzip2")
(alist-cons-after (string-append bzip2 "/bin/bzip2"))))))
'install 'post-install (add-after 'install 'post-install
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
;; Make sure these programs find their comrades. ;; Make sure these programs find their comrades.
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin"))) (bin (string-append out "/bin")))
(for-each (lambda (prog) (for-each (lambda (prog)
(wrap-program (string-append bin "/" prog) (wrap-program (string-append bin "/" prog)
`("PATH" ":" prefix (,bin)))) `("PATH" ":" prefix (,bin))))
'("unicode_start" "unicode_stop")))) '("unicode_start" "unicode_stop"))))))))
%standard-phases))))
(inputs `(("check" ,check) (inputs `(("check" ,check)
("gzip" ,gzip) ("gzip" ,gzip)
("bzip2" ,bzip2) ("bzip2" ,bzip2)