[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/03: gnu: unclutter: Use 'modify-phases'.
From: |
Efraim Flashner |
Subject: |
02/03: gnu: unclutter: Use 'modify-phases'. |
Date: |
Fri, 19 Aug 2016 20:38:55 +0000 (UTC) |
efraim pushed a commit to branch master
in repository guix.
commit ea0836cd6f09cc814505fabd0846ae58a58e4b3f
Author: Efraim Flashner <address@hidden>
Date: Fri Aug 19 23:17:48 2016 +0300
gnu: unclutter: Use 'modify-phases'.
* gnu/packages/xdisorg.scm (unclutter)[arguments]: Use 'modify-phases'.
---
gnu/packages/xdisorg.scm | 29 ++++++++++++++---------------
1 file changed, 14 insertions(+), 15 deletions(-)
diff --git a/gnu/packages/xdisorg.scm b/gnu/packages/xdisorg.scm
index 68d4dff..cc83a04 100644
--- a/gnu/packages/xdisorg.scm
+++ b/gnu/packages/xdisorg.scm
@@ -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")