gnu: gnustep: Update phase style.

* gnu/packages/gnustep.scm (windowmaker)[arguments]: Don't use %OUTPUT.
End phases with #t.
(wmbattery, wmclock)[arguments]: Substitute INVOKE for SYSTEM*.  End
phases with #t.
This commit is contained in:
Tobias Geerinckx-Rice 2018-02-15 23:28:51 +01:00
parent 9a0a4a95f0
commit bfe83d568c
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79

View file

@ -102,7 +102,8 @@ (define-public windowmaker
;; The path to wmsetbg in Guix requires 67 extra characters.
(substitute* "src/defaults.c"
(("len = strlen\\(text\\) \\+ 40;")
(string-append "len = strlen(text) + 107;"))))))
(string-append "len = strlen(text) + 107;")))
#t)))
(add-after 'install 'install-xsession
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
@ -120,7 +121,7 @@ (define-public windowmaker
(string-map (match-lambda
(#\newline #\space)
(chr chr))
,synopsis) %output))))
,synopsis) out))))
#t))
(add-after 'install-xsession 'wrap
(lambda* (#:key outputs #:allow-other-keys)
@ -129,7 +130,8 @@ (define-public windowmaker
;; In turn, 'wmaker.inst' wants to invoke 'wmmenugen'
;; etc., so make sure everything is in $PATH.
(wrap-program (string-append bin "/wmaker.inst")
`("PATH" ":" prefix (,bin)))))))))
`("PATH" ":" prefix (,bin)))
#t))))))
(inputs
`(("libxmu" ,libxmu)
("libxft" ,libxft)
@ -170,7 +172,9 @@ (define-public wmbattery
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'autoconf
(lambda _ (zero? (system* "autoreconf" "-vfi")))))))
(lambda _
(invoke "autoreconf" "-vfi")
#t)))))
(inputs
`(("glib" ,glib)
("libx11" ,libx11)
@ -262,7 +266,9 @@ (define-public wmclock
`(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'autoconf
(lambda _ (zero? (system* "autoreconf" "-vfi")))))))
(lambda _
(invoke "autoreconf" "-vfi")
#t)))))
;; wmclock requires autoreconf to generate its configure script.
(inputs
`(("libx11" ,libx11)