02/03: gnu: awesome: Use absolute paths in session file.

[guix-commits]

samplet pushed a commit to branch master
in repository guix.

commit 4ec42524dd51aaaf9cd45520c0fdc89d6579d9e3
Author: Timothy Sample <address@hidden>
Date:   Mon Apr 29 20:51:37 2019 -0400

    gnu: awesome: Use absolute paths in session file.
    
    * gnu/packages/wm.scm (awesome)[arguments]: Add a phase to patch the
    session '.desktop' file to use the absolute path of the 'awesome'
    binary.
---
 gnu/packages/wm.scm | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/gnu/packages/wm.scm b/gnu/packages/wm.scm
index 0f1b0f3..6d650a8 100644
--- a/gnu/packages/wm.scm
+++ b/gnu/packages/wm.scm
@@ -19,6 +19,7 @@
 ;;; Copyright © 2018 Pierre-Antoine Rouby <address@hidden>
 ;;; Copyright © 2018 Meiyo Peng <address@hidden>
 ;;; Copyright © 2019 Rutger Helling <address@hidden>
+;;; Copyright © 2019 Timothy Sample <address@hidden>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -823,6 +824,13 @@ experience.")
              ;; There aren't any tests, so just make sure the binary
              ;; gets built and can be run successfully.
              (invoke "../build/awesome" "-v")))
+         (add-after 'install 'patch-session-file
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let* ((out (assoc-ref outputs "out"))
+                    (awesome (string-append out "/bin/awesome")))
+               (substitute* (string-append out 
"/share/xsessions/awesome.desktop")
+                 (("Exec=awesome") (string-append "Exec=" awesome)))
+               #t)))
          (add-after 'install 'wrap
            (lambda* (#:key inputs outputs #:allow-other-keys)
              (let* ((awesome (assoc-ref outputs "out"))