summaryrefslogtreecommitdiff
path: root/gnu/services
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2014-07-24 23:01:55 +0200
committerLudovic Courtès <ludo@gnu.org>2014-07-24 23:02:27 +0200
commitd9372161ef7ab6979f5dc1d92ad59acb5660bb3b (patch)
treec340e85fb3f712ac278eca1fb6be4774888e9ca2 /gnu/services
parent1dac85663858c8323a0d2483fb675aa5820d4d0e (diff)
services: xorg: Honor ~/.xsession.
* gnu/services/xorg.scm (xinitrc): Attempt to execute ~/.xsession.
Diffstat (limited to 'gnu/services')
-rw-r--r--gnu/services/xorg.scm7
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")))