diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2014-07-24 23:01:55 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2014-07-24 23:02:27 +0200 |
| commit | d9372161ef7ab6979f5dc1d92ad59acb5660bb3b (patch) | |
| tree | c340e85fb3f712ac278eca1fb6be4774888e9ca2 /gnu/services | |
| parent | 1dac85663858c8323a0d2483fb675aa5820d4d0e (diff) | |
| download | guix-d9372161ef7ab6979f5dc1d92ad59acb5660bb3b.tar guix-d9372161ef7ab6979f5dc1d92ad59acb5660bb3b.tar.gz | |
services: xorg: Honor ~/.xsession.
* gnu/services/xorg.scm (xinitrc): Attempt to execute ~/.xsession.
Diffstat (limited to 'gnu/services')
| -rw-r--r-- | gnu/services/xorg.scm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/gnu/services/xorg.scm b/gnu/services/xorg.scm index 04d1296edc..a34129a8ed 100644 --- a/gnu/services/xorg.scm +++ b/gnu/services/xorg.scm @@ -97,7 +97,12 @@ EndSection #~(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"))) |