aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorEfraim Flashner <efraim@flashner.co.il>2019-02-13 21:25:14 +0200
committerEfraim Flashner <efraim@flashner.co.il>2019-02-13 21:48:11 +0200
commit4ee3b309450d849a55161bfc88951385a93f2b7c (patch)
tree5af46c995bf7cbc68227063859e8b36251030adf
parent37f7853e1359ae0a46b6fcb223145b690fdd051f (diff)
downloadpatches-4ee3b309450d849a55161bfc88951385a93f2b7c.tar
patches-4ee3b309450d849a55161bfc88951385a93f2b7c.tar.gz
gnu: fluxbox: All phases return #t.
* gnu/packages/wm.scm (fluxbox)[arguments]: All phases return #t.
-rw-r--r--gnu/packages/wm.scm29
1 files changed, 15 insertions, 14 deletions
diff --git a/gnu/packages/wm.scm b/gnu/packages/wm.scm
index 6a6a94b7ce..f1f3c25391 100644
--- a/gnu/packages/wm.scm
+++ b/gnu/packages/wm.scm
@@ -681,20 +681,21 @@ drags, snap-to-border support, and virtual desktops.")
(syntax (string-append out "/share/vim/vimfiles/syntax")))
(copy-recursively "3rd/vim/vim/syntax" syntax)
#t)))
- (add-after
- 'install 'install-xsession
- (lambda _
- (let ((xsessions (string-append %output "/share/xsessions")))
- (mkdir-p xsessions)
- (call-with-output-file
- (string-append xsessions "/fluxbox.desktop")
- (lambda (port)
- (format port "~
- [Desktop Entry]~@
- Name=~a~@
- Comment=~a~@
- Exec=~a/bin/startfluxbox~@
- Type=Application~%" ,name ,synopsis %output)))))))))
+ (add-after 'install 'install-xsession
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let* ((out (assoc-ref outputs "out"))
+ (xsessions (string-append out "/share/xsessions")))
+ (mkdir-p xsessions)
+ (call-with-output-file
+ (string-append xsessions "/fluxbox.desktop")
+ (lambda (port)
+ (format port "~
+ [Desktop Entry]~@
+ Name=~a~@
+ Comment=~a~@
+ Exec=~a/bin/startfluxbox~@
+ Type=Application~%" ,name ,synopsis out)))
+ #t))))))
(native-inputs
`(("pkg-config" ,pkg-config)))
(inputs