aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSpencer Janssen <sjanssen@cse.unl.edu>2008-05-07 04:25:16 +0200
committerSpencer Janssen <sjanssen@cse.unl.edu>2008-05-07 04:25:16 +0200
commitfd020b134275bc9f58f393bb1eb539393cbb5502 (patch)
treec2e50a62d07f53a66a5a8f1bf2d7d14776183772
parent93a4dc752d1866b64daacdc38a12792b59723b05 (diff)
downloadXMonadContrib-fd020b134275bc9f58f393bb1eb539393cbb5502.tar.gz
XMonadContrib-fd020b134275bc9f58f393bb1eb539393cbb5502.tar.xz
XMonadContrib-fd020b134275bc9f58f393bb1eb539393cbb5502.zip
Add ToggleStruts to the desktop config
darcs-hash:20080507022516-a5988-052b2672534ec9f4af933450bc6f5d8af3260066.gz
-rw-r--r--XMonad/Config/Desktop.hs6
1 files changed, 6 insertions, 0 deletions
diff --git a/XMonad/Config/Desktop.hs b/XMonad/Config/Desktop.hs
index d004dbe..8e9e949 100644
--- a/XMonad/Config/Desktop.hs
+++ b/XMonad/Config/Desktop.hs
@@ -23,11 +23,17 @@ import XMonad.Config (defaultConfig)
import XMonad.Hooks.ManageDocks
import XMonad.Hooks.EwmhDesktops
+import qualified Data.Map as M
+
desktopConfig = defaultConfig
{ logHook = ewmhDesktopsLogHook
, layoutHook = desktopLayoutModifiers $ layoutHook defaultConfig
, manageHook = manageHook defaultConfig <+> manageDocks
+ , keys = \c -> desktopKeys c `M.union` keys defaultConfig c
}
+desktopKeys (XConfig {modMask = modm}) = M.fromList $
+ [ ((modm, xK_b), sendMessage ToggleStruts) ]
+
desktopLayoutModifiers = avoidStruts . ewmhDesktopsLayout