04/06: gnu: fluxbox: All phases return #t.

[guix-commits]

efraim pushed a commit to branch master
in repository guix.

commit 4ee3b309450d849a55161bfc88951385a93f2b7c
Author: Efraim Flashner <address@hidden>
Date:   Wed Feb 13 21:25:14 2019 +0200

    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(-)

diff --git a/gnu/packages/wm.scm b/gnu/packages/wm.scm
index 6a6a94b..f1f3c25 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