xmonad.hs

import qualified Data.Map as M

import XMonad
import qualified XMonad.StackSet as W

import XMonad.Actions.DynamicWorkspaces
import XMonad.Config.Kde
import XMonad.Hooks.SetWMName
import XMonad.Prompt

main = xmonad $ kde4Config
  { modMask = mod4Mask
  , keys = customKeys <+> keys kde4Config
  , terminal = "urxvt"
  , startupHook = startupHook kde4Config >> setWMName "LG3D"
  , workspaces = ["1", "2", "3"]
  }
  where
   customKeys (XConfig {modMask = modm}) = M.fromList $
     [
       ((modm, xK_backslash), selectWorkspace defaultXPConfig)
     , ((modm, xK_apostrophe), withWorkspace defaultXPConfig (windows . W.shift))
     , ((modm .|. shiftMask, xK_apostrophe),
         withWorkspace defaultXPConfig (\ws -> windows $ W.greedyView ws . W.shift ws))
     , ((modm, xK_BackSpace),  renameWorkspace defaultXPConfig)
     , ((modm .|. shiftMask, xK_BackSpace),  removeWorkspace)
    ]