From 1e7414fd1c72299d1991482eb5dad47bc25f0d9f Mon Sep 17 00:00:00 2001
From: Spencer Janssen <spencerjanssen@gmail.com>
Date: Thu, 11 Dec 2008 08:11:41 +0100
Subject: Add KDE 4 config, thanks to Shirakawasuna on IRC

Ignore-this: 51698961ab5b6e569c294d174f2804a9

darcs-hash:20081211071141-25a6b-60152e9f3c0909a30c2ae2e5affb8cf5ffde3871.gz
---
 XMonad/Config/Kde.hs | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

(limited to 'XMonad/Config/Kde.hs')

diff --git a/XMonad/Config/Kde.hs b/XMonad/Config/Kde.hs
index cd5d4de..3a69f16 100644
--- a/XMonad/Config/Kde.hs
+++ b/XMonad/Config/Kde.hs
@@ -14,7 +14,8 @@
 module XMonad.Config.Kde (
     -- * Usage
     -- $usage
-    kdeConfig
+    kdeConfig,
+    kde4Config
     ) where
 
 import XMonad
@@ -29,13 +30,24 @@ import qualified Data.Map as M
 -- > import XMonad.Config.Kde
 -- >
 -- > main = xmonad kdeConfig
+--
+-- For KDE 4, replace 'kdeConfig' with 'kde4Config'
 -- 
 
 kdeConfig = desktopConfig
     { terminal = "konsole"
     , keys     = \c -> kdeKeys c `M.union` keys desktopConfig c }
 
+kde4Config = desktopConfig
+    { terminal = "konsole"
+    , keys     = \c -> kde4Keys c `M.union` keys desktopConfig c }
+
 kdeKeys (XConfig {modMask = modm}) = M.fromList $
     [ ((modm,               xK_p), spawn "dcop kdesktop default popupExecuteCommand")
     , ((modm .|. shiftMask, xK_q), spawn "dcop kdesktop default logout")
     ]
+
+kde4Keys (XConfig {modMask = modm}) = M.fromList $
+    [ ((modm,               xK_p), spawn "krunner")
+    , ((modm .|. shiftMask, xK_q), spawn "dbus-send --print-reply --dest=org.kde.ksmserver /KSMServer org.kde.KSMServerInterface.logout int32:1 int32:0 int32:1")
+    ]
-- 
cgit v1.2.3