twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-01 12:41:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

Add KDE 4 config, thanks to Shirakawasuna on IRC

Browse Source
This commit is contained in:
Spencer Janssen
2008-12-11 07:11:41 +00:00
parent 293b8152aa
commit 9d0f34852c
1 changed files with 13 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
XMonad/Config/Kde.hs
View File

@@ -14,7 +14,8 @@
module XMonad.Config.Kde ( module XMonad.Config.Kde (
-- * Usage -- * Usage
-- $usage -- $usage
kdeConfig kdeConfig,
kde4Config
) where ) where
import XMonad import XMonad
@@ -29,13 +30,24 @@ import qualified Data.Map as M
-- > import XMonad.Config.Kde -- > import XMonad.Config.Kde
-- > -- >
-- > main = xmonad kdeConfig -- > main = xmonad kdeConfig
--
-- For KDE 4, replace 'kdeConfig' with 'kde4Config'
-- --
kdeConfig = desktopConfig kdeConfig = desktopConfig
{ terminal = "konsole" { terminal = "konsole"
, keys = \c -> kdeKeys c `M.union` keys desktopConfig c } , 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 $ kdeKeys (XConfig {modMask = modm}) = M.fromList $
[ ((modm, xK_p), spawn "dcop kdesktop default popupExecuteCommand") [ ((modm, xK_p), spawn "dcop kdesktop default popupExecuteCommand")
, ((modm .|. shiftMask, xK_q), spawn "dcop kdesktop default logout") , ((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")
]