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'.
This commit is contained in:
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) (build-system gnu-build-system)
(arguments (arguments
'(#:tests? #f ; no check target '(#:tests? #f ; no check target
#:phases (alist-delete #:phases
'configure (modify-phases %standard-phases
(alist-replace (delete 'configure)
'install (replace 'install
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin")) (bin (string-append out "/bin"))
(man1 (string-append out "/share/man/man1"))) (man1 (string-append out "/share/man/man1")))
(mkdir-p bin) (mkdir-p bin)
(mkdir-p man1) (mkdir-p man1)
(zero? (zero?
(system* "make" "install" "install.man" (system* "make" "install" "install.man"
(string-append "BINDIR=" bin) (string-append "BINDIR=" bin)
(string-append "MANDIR=" man1))))) (string-append "MANDIR=" man1)))))))))
%standard-phases))))
(inputs `(("libx11" ,libx11))) (inputs `(("libx11" ,libx11)))
(home-page "http://ftp.x.org/contrib/utilities/") (home-page "http://ftp.x.org/contrib/utilities/")
(synopsis "Hide idle mouse cursor") (synopsis "Hide idle mouse cursor")