aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSpencer Janssen <spencerjanssen@gmail.com>2008-12-11 08:11:41 +0100
committerSpencer Janssen <spencerjanssen@gmail.com>2008-12-11 08:11:41 +0100
commit1e7414fd1c72299d1991482eb5dad47bc25f0d9f (patch)
tree074aff180c50d130d77b4b58b8bd9a7217a45fff
parentca0c9d5379165c0cd90612850035f86794f82bc0 (diff)
downloadXMonadContrib-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
-rw-r--r--XMonad/Config/Kde.hs14
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")
+ ]