diff options
| author | Spencer Janssen <spencerjanssen@gmail.com> | 2008-12-11 08:11:41 +0100 |
|---|---|---|
| committer | Spencer Janssen <spencerjanssen@gmail.com> | 2008-12-11 08:11:41 +0100 |
| commit | 1e7414fd1c72299d1991482eb5dad47bc25f0d9f (patch) | |
| tree | 074aff180c50d130d77b4b58b8bd9a7217a45fff /XMonad/Config/Kde.hs | |
| parent | ca0c9d5379165c0cd90612850035f86794f82bc0 (diff) | |
| download | XMonadContrib-1e7414fd1c72299d1991482eb5dad47bc25f0d9f.tar.gz XMonadContrib-1e7414fd1c72299d1991482eb5dad47bc25f0d9f.tar.xz XMonadContrib-1e7414fd1c72299d1991482eb5dad47bc25f0d9f.zip | |
Add KDE 4 config, thanks to Shirakawasuna on IRC
Ignore-this: 51698961ab5b6e569c294d174f2804a9
darcs-hash:20081211071141-25a6b-60152e9f3c0909a30c2ae2e5affb8cf5ffde3871.gz
Diffstat (limited to 'XMonad/Config/Kde.hs')
| -rw-r--r-- | XMonad/Config/Kde.hs | 14 |
1 files changed, 13 insertions, 1 deletions
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") + ] |