From 5ce93d9ade22861eac492f98f66199c77761cd04 Mon Sep 17 00:00:00 2001
From: 宋文武 <iyzsong@gmail.com>
Date: Tue, 3 Feb 2015 22:08:04 +0800
Subject: 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(+)

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))
-- 
cgit 1.4.1