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

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.

1 files changed, 12 insertions, 4 deletions

diff --git a/gnu/services/xorg.scm b/gnu/services/xorg.scm
index 2d25635bcb..5236573a39 100644
--- a/gnu/services/xorg.scm
+++ b/gnu/services/xorg.scm
@@ -142,10 +142,18 @@ EndSection
     #~(begin
         (use-modules (ice-9 match))
 
-        ;; First, try to run ~/.xsession.
-        (let* ((home (getenv "HOME"))
-               (file (string-append home "/.xsession")))
-          (false-if-exception (execl file file)))
+        (let* ((home     (getenv "HOME"))
+               (profile  (string-append home "/.guix-profile/bin"))
+               (PATH     (or (getenv "PATH") ""))
+               (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.
         (let ((ratpoison (string-append #$ratpoison "/bin/ratpoison"))