futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

services: xorg: Include ~/.guix-profile/bin to the session's $PATH.

Browse Source 
Fixes <http://bugs.gnu.org/19119>.
Reported by David Thompson <dthompson2@worcester.edu>.

* gnu/services/xorg.scm (xinitrc): Augment $PATH to include
  ~/.guix-profile/bin.
This commit is contained in:
Ludovic Courtès 2014-11-20 21:12:04 +01:00
parent 1c27641f46
commit 1d18d87f34
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
gnu/services/xorg.scm
View File

@ -142,10 +142,18 @@ EndSection
#~(begin #~(begin
(use-modules (ice-9 match)) (use-modules (ice-9 match))
;; First, try to run ~/.xsession. (let* ((home (getenv "HOME"))
(let* ((home (getenv "HOME")) (profile (string-append home "/.guix-profile/bin"))
(file (string-append home "/.xsession"))) (PATH (or (getenv "PATH") ""))
(false-if-exception (execl file file))) (xsession (string-append home "/.xsession")))
;; Make sure the user's profile is visible.
(setenv "PATH"
(string-append profile
(if (string-null? PATH) "" ":")
PATH))
;; First, try to run ~/.xsession.
(false-if-exception (execl xsession xsession)))
;; Then try a pre-configured session type. ;; Then try a pre-configured session type.
(let ((ratpoison (string-append #$ratpoison "/bin/ratpoison")) (let ((ratpoison (string-append #$ratpoison "/bin/ratpoison"))