summaryrefslogtreecommitdiff
path: root/gnu/services
diff options
context:
space:
mode:
author宋文武 <iyzsong@gmail.com>2015-02-03 22:08:04 +0800
committer宋文武 <iyzsong@gmail.com>2015-02-03 22:20:49 +0800
commit5ce93d9ade22861eac492f98f66199c77761cd04 (patch)
treec5a7bda6ea08d1358eebe61f96cd1a89ee0d6ce7 /gnu/services
parentca2eebbd99e8f4d2ebbcf700960d03818d4fbf8f (diff)
services: xorg: Add sawfish session.
* gnu/services/xorg.scm (%sawfish-session-type): New variable. * doc/guix.texi (X Window): Mention it.
Diffstat (limited to 'gnu/services')
-rw-r--r--gnu/services/xorg.scm7
1 files changed, 7 insertions, 0 deletions
diff --git a/gnu/services/xorg.scm b/gnu/services/xorg.scm
index ba9731695e..46098da75e 100644
--- a/gnu/services/xorg.scm
+++ b/gnu/services/xorg.scm
@@ -27,6 +27,7 @@
#:use-module (gnu packages slim)
#:use-module (gnu packages ratpoison)
#:use-module (gnu packages gnustep)
+ #:use-module (gnu packages sawfish)
#:use-module (gnu packages admin)
#:use-module (gnu packages bash)
#:use-module (guix gexp)
@@ -41,6 +42,7 @@
%default-xsessions
%ratpoison-session-type
%windowmaker-session-type
+ %sawfish-session-type
session-type?
session-type-name
@@ -194,6 +196,11 @@ which should be passed to this script as the first argument. If not, the
(name "Ratpoison")
(executable #~(string-append #$ratpoison "/bin/ratpoison"))))
+(define %sawfish-session-type
+ (session-type
+ (name "Sawfish")
+ (executable #~(string-append #$sawfish "/bin/sawfish"))))
+
(define %default-xsessions
;; Default session types available to the log-in manager.
(list %windowmaker-session-type %ratpoison-session-type))