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

gnu: unclutter: Use 'modify-phases'. 

* gnu/packages/xdisorg.scm (unclutter)[arguments]: Use 'modify-phases'.
master
Efraim Flashner 2016-08-19 23:17:48 +03:00
parent c237480b0c
commit ea0836cd6f
No known key found for this signature in database
GPG Key ID: F4C1D3917EACEE93
1 changed files with 14 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
gnu/packages/xdisorg.scm
View File

@ -514,21 +514,20 @@ include cursor in the resulting image.")
(build-system gnu-build-system)
(arguments
'(#:tests? #f ; no check target
#:phases (alist-delete
'configure
(alist-replace
'install
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin"))
(man1 (string-append out "/share/man/man1")))
(mkdir-p bin)
(mkdir-p man1)
(zero?
(system* "make" "install" "install.man"
(string-append "BINDIR=" bin)
(string-append "MANDIR=" man1)))))
%standard-phases))))
#:phases
(modify-phases %standard-phases
(delete 'configure)
(replace 'install
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin"))
(man1 (string-append out "/share/man/man1")))
(mkdir-p bin)
(mkdir-p man1)
(zero?
(system* "make" "install" "install.man"
(string-append "BINDIR=" bin)
(string-append "MANDIR=" man1)))))))))
(inputs `(("libx11" ,libx11)))
(home-page "http://ftp.x.org/contrib/utilities/")
(synopsis "Hide idle mouse cursor")