From b7fd3571fde2f8ffc94ab39239e08fd50d5d6a65 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Wed, 7 May 2008 04:26:58 +0200
Subject: Add some keybindings to the Kde config

darcs-hash:20080507022658-a5988-c49d0076b72665b2f93248318daf810e5bdad581.gz
---
 XMonad/Config/Kde.hs | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/XMonad/Config/Kde.hs b/XMonad/Config/Kde.hs
index c58aad8..e062613 100644
--- a/XMonad/Config/Kde.hs
+++ b/XMonad/Config/Kde.hs
@@ -20,6 +20,8 @@ module XMonad.Config.Kde (
 import XMonad
 import XMonad.Config.Desktop
 
+import qualified Data.Map as M
+
 -- $usage
 -- To use this module, start with the following @~\/.xmonad\/xmonad.hs@:
 --
@@ -29,4 +31,11 @@ import XMonad.Config.Desktop
 -- > main = xmonad kdeConfig
 -- 
 
-kdeConfig = desktopConfig { terminal = "konsole" }
+kdeConfig = desktopConfig
+    { terminal = "konsole"
+    , keys     = \c -> kdeKeys 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")
+    ]
-- 
cgit v1.2.3