summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSpencer Janssen <sjanssen@cse.unl.edu>2007-11-01 21:50:25 +0100
committerSpencer Janssen <sjanssen@cse.unl.edu>2007-11-01 21:50:25 +0100
commita478488ffbe5dd0ef7fef360bf4d8227c2449d4a (patch)
treed69afe7bbba1b4825c1c63c07673e10d67be2876
parent223b6a0ec72c29679990d27e185ee1f00087cbbe (diff)
downloadmetatile-a478488ffbe5dd0ef7fef360bf4d8227c2449d4a.tar
metatile-a478488ffbe5dd0ef7fef360bf4d8227c2449d4a.zip
Get defaultGaps from the current config, not the default one
darcs-hash:20071101205025-a5988-78d551974e1c4d8c000fbaa2efd2f4477ee8bfae
-rw-r--r--XMonad/DefaultConfig.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/XMonad/DefaultConfig.hs b/XMonad/DefaultConfig.hs
index 6fc710f..91e0414 100644
--- a/XMonad/DefaultConfig.hs
+++ b/XMonad/DefaultConfig.hs
@@ -189,7 +189,8 @@ keys = M.fromList $
, ((modMask , xK_period), sendMessage (IncMasterN (-1))) -- %! Deincrement the number of windows in the master area
-- toggle the status bar gap
- , ((modMask , xK_b ), modifyGap (\i n -> let x = (defaultGaps defaultConfig ++ repeat (0,0,0,0)) !! i in if n == x then (0,0,0,0) else x)) -- %! Toggle the status bar gap
+ , ((modMask , xK_b ), do gs <- asks (defaultGaps . config)
+ modifyGap (\i n -> let x = (gs ++ repeat (0,0,0,0)) !! i in if n == x then (0,0,0,0) else x)) -- %! Toggle the status bar gap
-- quit, or restart
, ((modMask .|. shiftMask, xK_q ), io (exitWith ExitSuccess)) -- %! Quit xmonad