From fd020b134275bc9f58f393bb1eb539393cbb5502 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Wed, 7 May 2008 04:25:16 +0200
Subject: Add ToggleStruts to the desktop config

darcs-hash:20080507022516-a5988-052b2672534ec9f4af933450bc6f5d8af3260066.gz
---
 XMonad/Config/Desktop.hs | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'XMonad/Config/Desktop.hs')

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
 
-- 
cgit v1.2.3