me
/
guix
Archived
1
0
Fork 0
Code

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.
master
Timothy Sample 2019-04-29 20:51:37 -04:00
parent e8c6e771c1
commit 4ec42524dd
No known key found for this signature in database
GPG Key ID: 2AC6A5EC1C357C59
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gnu/packages/wm.scm
View File

@ -19,6 +19,7 @@
;;; Copyright © 2018 Pierre-Antoine Rouby <contact@parouby.fr> ;;; Copyright © 2018 Pierre-Antoine Rouby <contact@parouby.fr>
;;; Copyright © 2018 Meiyo Peng <meiyo.peng@gmail.com> ;;; Copyright © 2018 Meiyo Peng <meiyo.peng@gmail.com>
;;; Copyright © 2019 Rutger Helling <rhelling@mykolab.com> ;;; Copyright © 2019 Rutger Helling <rhelling@mykolab.com>
;;; Copyright © 2019 Timothy Sample <samplet@ngyro.com>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -823,6 +824,13 @@ experience.")
;; There aren't any tests, so just make sure the binary ;; There aren't any tests, so just make sure the binary
;; gets built and can be run successfully. ;; gets built and can be run successfully.
(invoke "../build/awesome" "-v"))) (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 (add-after 'install 'wrap
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((awesome (assoc-ref outputs "out")) (let* ((awesome (assoc-ref outputs "out"))