From 4ee3b309450d849a55161bfc88951385a93f2b7c Mon Sep 17 00:00:00 2001 From: Efraim Flashner Date: Wed, 13 Feb 2019 21:25:14 +0200 Subject: gnu: fluxbox: All phases return #t. * gnu/packages/wm.scm (fluxbox)[arguments]: All phases return #t. --- gnu/packages/wm.scm | 29 +++++++++++++++-------------- 1 file changed, 15 insertions(+), 14 deletions(-) (limited to 'gnu/packages/wm.scm') 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 -- cgit v1.2.3