diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2008-05-07 04:25:16 +0200 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2008-05-07 04:25:16 +0200 |
| commit | fd020b134275bc9f58f393bb1eb539393cbb5502 (patch) | |
| tree | c2e50a62d07f53a66a5a8f1bf2d7d14776183772 | |
| parent | 93a4dc752d1866b64daacdc38a12792b59723b05 (diff) | |
| download | XMonadContrib-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.hs | 6 |
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 |