aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSpencer Janssen <sjanssen@cse.unl.edu>2008-05-07 04:26:58 +0200
committerSpencer Janssen <sjanssen@cse.unl.edu>2008-05-07 04:26:58 +0200
commitb7fd3571fde2f8ffc94ab39239e08fd50d5d6a65 (patch)
tree8be5f17bae606c2bd85d087151bb62cd17c0831b
parentdfe610291fa3f60477aa83d494bde5d214d2cf2e (diff)
downloadXMonadContrib-b7fd3571fde2f8ffc94ab39239e08fd50d5d6a65.tar.gz
XMonadContrib-b7fd3571fde2f8ffc94ab39239e08fd50d5d6a65.tar.xz
XMonadContrib-b7fd3571fde2f8ffc94ab39239e08fd50d5d6a65.zip
Add some keybindings to the Kde config
darcs-hash:20080507022658-a5988-c49d0076b72665b2f93248318daf810e5bdad581.gz
-rw-r--r--XMonad/Config/Kde.hs11
1 files changed, 10 insertions, 1 deletions
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")
+ ]