diff options
| author | 宋文武 <iyzsong@gmail.com> | 2015-02-03 22:08:04 +0800 |
|---|---|---|
| committer | 宋文武 <iyzsong@gmail.com> | 2015-02-03 22:20:49 +0800 |
| commit | 5ce93d9ade22861eac492f98f66199c77761cd04 (patch) | |
| tree | c5a7bda6ea08d1358eebe61f96cd1a89ee0d6ce7 | |
| parent | ca2eebbd99e8f4d2ebbcf700960d03818d4fbf8f (diff) | |
| download | patches-5ce93d9ade22861eac492f98f66199c77761cd04.tar patches-5ce93d9ade22861eac492f98f66199c77761cd04.tar.gz | |
services: xorg: Add sawfish session.
* gnu/services/xorg.scm (%sawfish-session-type): New variable.
* doc/guix.texi (X Window): Mention it.
| -rw-r--r-- | doc/guix.texi | 4 | ||||
| -rw-r--r-- | gnu/services/xorg.scm | 7 |
2 files changed, 11 insertions, 0 deletions
diff --git a/doc/guix.texi b/doc/guix.texi index 1b3bd0ea26..fa3aa6d66d 100644 --- a/doc/guix.texi +++ b/doc/guix.texi @@ -4579,6 +4579,10 @@ Session type using the Ratpoison window manager. Session type using the WindowMaker window manager. @end defvr +@defvr {Scheme Variable} %sawfish-session-type +Session type using the Sawfish window manager. +@end defvr + @defvr {Scheme Variable} %default-theme @defvrx {Scheme Variable} %default-theme-name The G-Expression denoting the default SLiM theme and its name. 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)) |