[sawfish] added desktop-environment variable to integration.*

[Christopher Bratusek <chrisb src gnome org>]

commit aebee09a83bde9ede4b1b3ceb8ae810162568d38
Author: Christopher Roy Bratusek <zanghar freenet de>
Date:   Sat Aug 21 19:24:40 2010 +0200

    added desktop-environment variable to integration.*

 lisp/sawfish/wm/integration/gnome.jl      |    1 +
 lisp/sawfish/wm/integration/kde.jl        |    1 +
 lisp/sawfish/wm/integration/standalone.jl |    2 ++
 lisp/sawfish/wm/integration/xfce.jl       |    1 +
 4 files changed, 5 insertions(+), 0 deletions(-)
---
diff --git a/lisp/sawfish/wm/integration/gnome.jl b/lisp/sawfish/wm/integration/gnome.jl
index f69c10c..81a8550 100644
--- a/lisp/sawfish/wm/integration/gnome.jl
+++ b/lisp/sawfish/wm/integration/gnome.jl
@@ -31,6 +31,7 @@
   (define-structure-alias gnome-int sawfish.wm.integration.gnome)
 
   (defvar-setq want-poweroff-menu nil)
+  (defvar-setq desktop-environment "gnome")
 
   ;; invoke the GNOME terminal instead of xterm
   (unless (variable-customized-p 'xterm-program)
diff --git a/lisp/sawfish/wm/integration/kde.jl b/lisp/sawfish/wm/integration/kde.jl
index 0f7e458..1ed7010 100644
--- a/lisp/sawfish/wm/integration/kde.jl
+++ b/lisp/sawfish/wm/integration/kde.jl
@@ -31,6 +31,7 @@
   (define-structure-alias kde-int sawfish.wm.integration.kde)
 
   (defvar-setq want-poweroff-menu nil)
+  (defvar-setq desktop-environment "kde")
 
   ;; invoke the KDE terminal instead of xterm
   (unless (variable-customized-p 'xterm-program)
diff --git a/lisp/sawfish/wm/integration/standalone.jl b/lisp/sawfish/wm/integration/standalone.jl
index dd6534b..40ac2a4 100644
--- a/lisp/sawfish/wm/integration/standalone.jl
+++ b/lisp/sawfish/wm/integration/standalone.jl
@@ -30,6 +30,8 @@
 
   (define-structure-alias standalone-int sawfish.wm.integration.standalone)
 
+  (defvar-setq desktop-environment "none")
+
   (defvar want-poweroff-menu t
     "Add poweroff menu if you don't use GNOME / KDE.")
 
diff --git a/lisp/sawfish/wm/integration/xfce.jl b/lisp/sawfish/wm/integration/xfce.jl
index d8ca7b5..c8b9c9d 100644
--- a/lisp/sawfish/wm/integration/xfce.jl
+++ b/lisp/sawfish/wm/integration/xfce.jl
@@ -31,6 +31,7 @@
   (define-structure-alias gnome-int sawfish.wm.integration.xfce)
 
   (defvar-setq want-poweroff-menu nil)
+  (defvar-setq desktop-environment "xfce")
 
   ;; invoke the GNOME terminal instead of xterm
   (unless (variable-customized-p 'xterm-program)