mod-b, toggle on or off the status bar gap

This commit is contained in:
Don Stewart
2007-05-27 12:59:28 +00:00
parent a64c9f1856
commit bb4bd97c87
6 changed files with 88 additions and 8 deletions

View File

@@ -49,9 +49,9 @@ defaultDelta = 3%100
defaultWindowsInMaster :: Int
defaultWindowsInMaster = 1
-- Default width of gap at top of screen for a menu bar (e.g. 16)
defaultMenuGap :: Int
defaultMenuGap = 0
-- Default height of gap at top of screen for a menu bar (e.g. 15)
defaultStatusGap :: Int
defaultStatusGap = 0 -- 15 for default dzen
-- numlock handling:
--
@@ -114,6 +114,9 @@ keys = M.fromList $
, ((modMask , xK_comma ), sendMessage (IncMasterN 1)) -- @@ Increment the number of windows in the master area
, ((modMask , xK_period), sendMessage (IncMasterN (-1))) -- @@ Deincrement the number of windows in the master area
-- toggle the status bar gap
, ((modMask , xK_b ), modifyGap (\n -> if n == 0 then defaultStatusGap else 0)) -- @@ Toggle the status bar gap
-- quit, or restart
, ((modMask .|. shiftMask, xK_q ), io (exitWith ExitSuccess)) -- @@ Quit xmonad
, ((modMask .|. shiftMask .|. controlMask, xK_q ), restart Nothing True) -- @@ Restart xmonad