[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
04/04: services: xorg: Add sawfish session.
From: |
??? |
Subject: |
04/04: services: xorg: Add sawfish session. |
Date: |
Tue, 03 Feb 2015 14:21:48 +0000 |
iyzsong pushed a commit to branch master
in repository guix.
commit 5ce93d9ade22861eac492f98f66199c77761cd04
Author: 宋文武 <address@hidden>
Date: Tue Feb 3 22:08:04 2015 +0800
services: xorg: Add sawfish session.
* gnu/services/xorg.scm (%sawfish-session-type): New variable.
* doc/guix.texi (X Window): Mention it.
---
doc/guix.texi | 4 ++++
gnu/services/xorg.scm | 7 +++++++
2 files changed, 11 insertions(+), 0 deletions(-)
diff --git a/doc/guix.texi b/doc/guix.texi
index 1b3bd0e..fa3aa6d 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
address@hidden {Scheme Variable} %sawfish-session-type
+Session type using the Sawfish window manager.
address@hidden 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 ba97316..46098da 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))