From 5f52a1253d29587e5ccdef75a44688c9eabe284e Mon Sep 17 00:00:00 2001 From: Don Stewart Date: Sun, 27 May 2007 14:27:02 +0200 Subject: 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 --- Operations.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'Operations.hs') 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. -- cgit v1.2.3