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.
This commit is contained in:
		
							parent
							
								
									1c27641f46
								
							
						
					
					
						commit
						1d18d87f34
					
				
					 1 changed files with 12 additions and 4 deletions
				
			
		| 
						 | 
				
			
			@ -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"))
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Reference in a new issue