diff options
Diffstat (limited to '')
-rw-r--r-- | Config.hs | 9 | ||||
-rw-r--r-- | Config.hs-boot | 1 |
2 files changed, 6 insertions, 4 deletions
@@ -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 diff --git a/Config.hs-boot b/Config.hs-boot index fe30869..2d66ae1 100644 --- a/Config.hs-boot +++ b/Config.hs-boot @@ -1,4 +1,3 @@ module Config where import Graphics.X11.Xlib.Types (Dimension) borderWidth :: Dimension -defaultMenuGap :: Int |