nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: dwm: Use modify-phases. 

* gnu/packages/suckless.scm (dwm): Use modify-phases.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
ng0 2017-01-15 12:21:15 +00:00 committed by Ludovic Courtès
parent 849a1b8133
commit 0d2c8f3420
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 12 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
gnu/packages/suckless.scm
View File

@ -2,7 +2,7 @@
;;; Copyright © 2013 Cyril Roelandt <tipecaml@gmail.com> ;;; Copyright © 2013 Cyril Roelandt <tipecaml@gmail.com>
;;; Copyright © 2015 Amirouche Boubekki <amirouche@hypermove.net> ;;; Copyright © 2015 Amirouche Boubekki <amirouche@hypermove.net>
;;; Copyright © 2016 Al McElrath <hello@yrns.org> ;;; Copyright © 2016 Al McElrath <hello@yrns.org>
;;; Copyright © 2016, 2017 ng0 <ng0@libertad.pw> ;;; Copyright © 2016, 2017 ng0 <contact.ng0@cryptolab.net>
;;; Copyright © 2015 Dmitry Bogatov <KAction@gnu.org> ;;; Copyright © 2015 Dmitry Bogatov <KAction@gnu.org>
;;; Copyright © 2015 Leo Famulari <leo@famulari.name> ;;; Copyright © 2015 Leo Famulari <leo@famulari.name>
;;; Copyright © 2016 Eric Bavier <bavier@member.fsf.org> ;;; Copyright © 2016 Eric Bavier <bavier@member.fsf.org>
@ -64,19 +64,17 @@
(assoc-ref %build-inputs "freetype") (assoc-ref %build-inputs "freetype")
"/include/freetype2")) "/include/freetype2"))
#:phases #:phases
(alist-replace (modify-phases %standard-phases
'configure (replace 'configure
(lambda _ (lambda _
(substitute* "Makefile" (("\\$\\{CC\\}") "gcc")) (substitute* "Makefile" (("\\$\\{CC\\}") "gcc"))
#t) #t))
(alist-replace (replace 'install
'install
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))) (let ((out (assoc-ref outputs "out")))
(zero? (zero?
(system* "make" "install" (system* "make" "install"
(string-append "DESTDIR=" out) "PREFIX=")))) (string-append "DESTDIR=" out) "PREFIX="))))))))
%standard-phases))))
(inputs (inputs
`(("freetype" ,freetype) `(("freetype" ,freetype)
("libx11" ,libx11) ("libx11" ,libx11)