ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-11 13:49:23 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

services: xorg: Honor ~/.xsession.

Browse source 
* gnu/services/xorg.scm (xinitrc): Attempt to execute ~/.xsession.
This commit is contained in:
Ludovic Courtès 2014-07-24 23:01:55 +02:00
parent 1dac856638
commit d9372161ef
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
gnu/services/xorg.scm
View file

@ -97,7 +97,12 @@ (define builder
#~(begin
(use-modules (ice-9 match))
;; TODO: Check for ~/.xsession.
;; First, try to run ~/.xsession.
(let* ((home (getenv "HOME"))
(file (string-append home "/.xsession")))
(false-if-exception (execl file file)))
;; Then try a pre-configured session type.
(match (command-line)
((_ "ratpoison")
(execl (string-append #$ratpoison "/bin/ratpoison")))