diff options
| author | Don Stewart <dons@cse.unsw.edu.au> | 2007-05-27 14:59:28 +0200 |
|---|---|---|
| committer | Don Stewart <dons@cse.unsw.edu.au> | 2007-05-27 14:59:28 +0200 |
| commit | 67b6aee8fe2efa6f03a220ecc27ab0fba405109c (patch) | |
| tree | a0be2fddf283c6521ec3b8399ce61372c63b3532 /Config.hs | |
| parent | 5f52a1253d29587e5ccdef75a44688c9eabe284e (diff) | |
| download | xmonad-67b6aee8fe2efa6f03a220ecc27ab0fba405109c.tar.gz xmonad-67b6aee8fe2efa6f03a220ecc27ab0fba405109c.tar.xz xmonad-67b6aee8fe2efa6f03a220ecc27ab0fba405109c.zip | |
mod-b, toggle on or off the status bar gap
darcs-hash:20070527125928-9c5c1-a16246810db9d4abfe81d0d5814721b64f59a14c.gz
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 |