[sawfish] added (initial) kde integration module

[Christopher Bratusek <chrisb src gnome org>]

commit a337e66e659e15ef458f553af62ec7c91c422392
Author: chrisb <zanghar freenet de>
Date:   Thu Sep 3 19:40:31 2009 +0200

    added (initial) kde integration module

 ChangeLog                          |    9 +++++
 lisp/sawfish/wm/integration/kde.jl |   59 ++++++++++++++++++++++++++++++++++++
 man/news.texi                      |    2 +
 3 files changed, 70 insertions(+), 0 deletions(-)
---
diff --git a/ChangeLog b/ChangeLog
index 11f3ceb..ee7c536 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,12 @@
+2009-09-03  Christopher Bratusek <zanghar freenet de>
+	* lisp/sawfish/wm/integration/kde.jl: initial kde integration module [incomplete atm]
+
+	* man/sawfish.texi: fixed a typo
+
+	* lisp/sawfish/wm.jl: removed deprecated command-line-arg for getting sm-id
+
+	* po/POTFILES.in: updated
+
 2009-09-02  Christopher Bratusek <zanghar freenet de>
 	* lisp/sawfish/wm/commands/user.jl
 	* lisp/sawfish/wm/commands/help.jl: replace display-url by browser
diff --git a/lisp/sawfish/wm/integration/kde.jl b/lisp/sawfish/wm/integration/kde.jl
new file mode 100644
index 0000000..49384fb
--- /dev/null
+++ b/lisp/sawfish/wm/integration/kde.jl
@@ -0,0 +1,59 @@
+;; gnome-int.jl -- more GNOME integration
+;; $Id: integration.jl,v 1.20 2003/08/14 06:55:36 jsh Exp $
+
+;; Copyright (C) 2000 John Harper <john dcs warwick ac uk>
+
+;; This file is part of sawfish.
+
+;; sawfish is free software; you can redistribute it and/or modify it
+;; under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+
+;; sawfish is distributed in the hope that it will be useful, but
+;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with sawfish; see the file COPYING.  If not, write to
+;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+
+(define-structure sawfish.wm.integration.kde ()
+
+    (open rep
+	  sawfish.wm.menus
+	  sawfish.wm.custom
+	  sawfish.wm.commands
+	  sawfish.wm.commands.user)
+
+  (define-structure-alias kde-int sawfish.wm.integration.kde)
+
+  ;; invoke the KDE terminal instead of xterm
+  (unless (variable-customized-p 'xterm-program)
+    (setq xterm-program "konsole"))
+
+  ;; use the KDE Browser
+  (unless (variable-customized-p 'browser-program)
+    (setq browser-program "konqueror"))
+
+  ;; add the KDE Control Center menu-item
+  (let ((menu (assoc (_ "_Customize") root-menu)))
+    (when menu
+      (nconc menu `(()
+                    (, (_ "_KDE Control Center") (system "systemsettings &"))))))
+
+  ;; add some KDE help menus
+  (let ((menu (assoc (_ "_Help") root-menu)))
+    (when menu
+      (nconc menu `(()
+		    (,(_ "_KDE Help") (system "khelpcenter &"))
+		    (,(_ "KDE Website") (browser "http://www.kde.org";)))))))
+		    ;(,(_ "About KDE") (system "false &"))))))
+
+  ;; add kde-logout menu item
+  ;(let ((menu (assoc (_ "Sessi_on") root-menu)))
+  ;  (when menu
+  ;    (nconc menu `(()
+  ;                 (,(_ "_Logout from KDE") (system "false &"))
+;		   (,(_ "_Shutdown from KDE") (system "false &")))))))
diff --git a/man/news.texi b/man/news.texi
index 62599f9..32e3733 100644
--- a/man/news.texi
+++ b/man/news.texi
@@ -116,6 +116,8 @@ your system, but the later doesn't
 
 @item Trimmed down GNOME Integration to the minimum [Christopher Bratusek]
 
+ item Added KDE Integration [Christopher Bratusek]
+
 @item Make sure docks/panels are unframed [Timo Korvola]
 
 @item Make sure window-type of docks/panels is dock [Timo Korvola]