[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
07/10: Use INVOKE in (gnu packages xdisorg).
From: |
Tobias Geerinckx-Rice |
Subject: |
07/10: Use INVOKE in (gnu packages xdisorg). |
Date: |
Wed, 19 Sep 2018 22:51:44 -0400 (EDT) |
nckx pushed a commit to branch master
in repository guix.
commit e61c2991e4d4dce4f3134c343fde5a2980622271
Author: Tobias Geerinckx-Rice <address@hidden>
Date: Thu Sep 20 04:04:01 2018 +0200
Use INVOKE in (gnu packages xdisorg).
* gnu/packages/xdisorg.scm (scrot, unclutter, xautolock, nxbelld)
[arguments]: Use INVOKE.
---
gnu/packages/xdisorg.scm | 16 +++++++---------
1 file changed, 7 insertions(+), 9 deletions(-)
diff --git a/gnu/packages/xdisorg.scm b/gnu/packages/xdisorg.scm
index 7c326eb..c31680b 100644
--- a/gnu/packages/xdisorg.scm
+++ b/gnu/packages/xdisorg.scm
@@ -476,9 +476,8 @@ move windows, switch between desktops, etc.).")
(let* ((out (assoc-ref outputs "out"))
(doc (string-append out "/share/doc/scrot")))
(mkdir-p doc)
- (zero?
- (system* "make" "install"
- (string-append "docsdir=" doc)))))))))
+ (invoke "make" "install"
+ (string-append "docsdir=" doc))))))))
(inputs
`(("libx11" ,libx11)
("giblib" ,giblib)))
@@ -585,10 +584,9 @@ include cursor in the resulting image.")
(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)))))))))
+ (invoke "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")
@@ -1344,7 +1342,7 @@ invert colors on a specific display/screen.")
#:phases (modify-phases %standard-phases
(add-before 'configure 'autoreconf
(lambda _
- (zero? (system* "autoreconf" "-vfi")))))))
+ (invoke "autoreconf" "-vfi"))))))
(native-inputs `(("autoconf" ,autoconf)
("automake" ,automake)
("pkg-config" ,pkg-config)
@@ -1403,7 +1401,7 @@ or playing a PCM encoded WAVE file.")
#t)))
(add-after 'install 'install/man
(lambda _
- (zero? (system* "make" "install.man")))))))
+ (invoke "make" "install.man"))))))
(home-page "http://ibiblio.org/pub/Linux/X11/screensavers/")
(synopsis "Program launcher for idle X sessions")
(description "Xautolock monitors input devices under the X Window
- branch master updated (e266043 -> 3e63a83), Tobias Geerinckx-Rice, 2018/09/19
- 02/10: gnu: gourmet: Use HTTPS home page., Tobias Geerinckx-Rice, 2018/09/19
- 03/10: Use INVOKE in (gnu packages telephony)., Tobias Geerinckx-Rice, 2018/09/19
- 07/10: Use INVOKE in (gnu packages xdisorg).,
Tobias Geerinckx-Rice <=
- 01/10: gnu: sg3-utils: Update to 1.44., Tobias Geerinckx-Rice, 2018/09/19
- 06/10: Use INVOKE in (gnu packages shells)., Tobias Geerinckx-Rice, 2018/09/19
- 10/10: gnu: u-boot: Use HTTPS home page., Tobias Geerinckx-Rice, 2018/09/19
- 04/10: gnu: ruby-heredoc-unindent: Fix typo in description., Tobias Geerinckx-Rice, 2018/09/19
- 08/10: gnu: opusfile: Update to 0.11., Tobias Geerinckx-Rice, 2018/09/19
- 05/10: gnu: Use INVOKE & return #t from Ruby package phases., Tobias Geerinckx-Rice, 2018/09/19
- 09/10: gnu: ccid: Update to 1.4.30., Tobias Geerinckx-Rice, 2018/09/19