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

Use INVOKE in (gnu packages xdisorg). 

* gnu/packages/xdisorg.scm (scrot, unclutter, xautolock, nxbelld)
[arguments]: Use INVOKE.
This commit is contained in:
Tobias Geerinckx-Rice 2018-09-20 04:04:01 +02:00
parent 2385ecb224
commit e61c2991e4
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
1 changed files with 7 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
gnu/packages/xdisorg.scm
View File

@ -476,9 +476,8 @@ move windows, switch between desktops, etc.).")
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))
(doc (string-append out "/share/doc/scrot"))) (doc (string-append out "/share/doc/scrot")))
(mkdir-p doc) (mkdir-p doc)
(zero? (invoke "make" "install"
(system* "make" "install" (string-append "docsdir=" doc))))))))
(string-append "docsdir=" doc)))))))))
(inputs (inputs
`(("libx11" ,libx11) `(("libx11" ,libx11)
("giblib" ,giblib))) ("giblib" ,giblib)))
@ -585,10 +584,9 @@ include cursor in the resulting image.")
(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? (invoke "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))))))))
(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")
@ -1344,7 +1342,7 @@ invert colors on a specific display/screen.")
#:phases (modify-phases %standard-phases #:phases (modify-phases %standard-phases
(add-before 'configure 'autoreconf (add-before 'configure 'autoreconf
(lambda _ (lambda _
(zero? (system* "autoreconf" "-vfi"))))))) (invoke "autoreconf" "-vfi"))))))
(native-inputs `(("autoconf" ,autoconf) (native-inputs `(("autoconf" ,autoconf)
("automake" ,automake) ("automake" ,automake)
("pkg-config" ,pkg-config) ("pkg-config" ,pkg-config)
@ -1403,7 +1401,7 @@ or playing a PCM encoded WAVE file.")
#t))) #t)))
(add-after 'install 'install/man (add-after 'install 'install/man
(lambda _ (lambda _
(zero? (system* "make" "install.man"))))))) (invoke "make" "install.man"))))))
(home-page "http://ibiblio.org/pub/Linux/X11/screensavers/") (home-page "http://ibiblio.org/pub/Linux/X11/screensavers/")
(synopsis "Program launcher for idle X sessions") (synopsis "Program launcher for idle X sessions")
(description "Xautolock monitors input devices under the X Window (description "Xautolock monitors input devices under the X Window