diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2008-05-07 04:26:58 +0200 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2008-05-07 04:26:58 +0200 |
| commit | b7fd3571fde2f8ffc94ab39239e08fd50d5d6a65 (patch) | |
| tree | 8be5f17bae606c2bd85d087151bb62cd17c0831b | |
| parent | dfe610291fa3f60477aa83d494bde5d214d2cf2e (diff) | |
| download | XMonadContrib-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.hs | 11 |
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") + ] |