Add new config value, defaultMenuGap, for specifying a gap for a status bar

By default, it is 0 (set in Config.hs), but set this to a pixel count to
get a permanent gap at the top of the screen. You can then at startup
launch dzen, and it will run in this gap, and not be obscured by other
windows.

Perfect for a persistant status bar.

darcs-hash:20070527122702-9c5c1-2a3ca82463b3bab21556674936b1bf8a86ba6356.gz

1 files changed, 4 insertions, 2 deletions

diff --git a/Operations.hs b/Operations.hs
index ab6490d..96727bb 100644
--- a/Operations.hs
+++ b/Operations.hs
@@ -15,7 +15,7 @@ module Operations where
 
 import XMonad
 import qualified StackSet as W
-import {-# SOURCE #-} Config (borderWidth)
+import {-# SOURCE #-} Config (borderWidth,defaultMenuGap)
 
 import Data.Maybe
 import Data.List            (genericIndex, intersectBy)
@@ -131,8 +131,10 @@ refresh = do
         let n      = W.tag (W.workspace w)
             this   = W.view n ws
             Just l = fmap fst $ M.lookup n fls
+            Rectangle sx sy sw sh = genericIndex xinesc (W.screen w)
         -- now tile the windows on this workspace
-        rs <- doLayout l (genericIndex xinesc (W.screen w)) (W.index this)
+        rs <- doLayout l (Rectangle sx (sy + fromIntegral defaultMenuGap)
+                                    sw (sh - fromIntegral defaultMenuGap)) (W.index this)
         mapM_ (\(win,rect) -> io (tileWindow d win rect)) rs
 
         -- and raise the focused window if there is one.