diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-11-01 21:50:25 +0100 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-11-01 21:50:25 +0100 |
| commit | a5c479b2c10fa011716368c12eceb759876420b1 (patch) | |
| tree | d69afe7bbba1b4825c1c63c07673e10d67be2876 /XMonad | |
| parent | 09d377a3be3c858b59e057f5604b70bb762c9b8d (diff) | |
| download | xmonad-a5c479b2c10fa011716368c12eceb759876420b1.tar.gz xmonad-a5c479b2c10fa011716368c12eceb759876420b1.tar.xz xmonad-a5c479b2c10fa011716368c12eceb759876420b1.zip | |
Get defaultGaps from the current config, not the default one
darcs-hash:20071101205025-a5988-78d551974e1c4d8c000fbaa2efd2f4477ee8bfae.gz
Diffstat (limited to 'XMonad')
| -rw-r--r-- | XMonad/DefaultConfig.hs | 3 |
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 |