From 7fe02668f58262639c4e9caa555ccfad20f68d8c Mon Sep 17 00:00:00 2001 From: Andrea Rossato Date: Tue, 19 Feb 2008 02:19:09 +0100 Subject: Xmobar: vertical align after wc string darcs-hash:20080219011909-d6583-c2c8e53e316808e52d6b70af2cf454a54f65515d.gz --- Xmobar.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'Xmobar.hs') diff --git a/Xmobar.hs b/Xmobar.hs index 16cc85e..014e22e 100644 --- a/Xmobar.hs +++ b/Xmobar.hs @@ -133,8 +133,8 @@ createWin d fs c = do let dflt = defaultScreen d r:_ <- getScreenInfo d rootw <- rootWindow d dflt - let (_,rl) = wcTextExtents fs "Tg" - ht = rect_height rl + 2 + let (_,rl) = wcTextExtents fs "0" + ht = rect_height rl + 4 (x,y,w,h,o) = setPosition (position c) r (fi ht) win <- mkUnmanagedWindow d (defaultScreenOfDisplay d) rootw x y w h o selectInput d win (exposureMask .|. structureNotifyMask) @@ -237,10 +237,10 @@ printStrings _ _ _ _ _ [] = return () printStrings dr gc fontst offs a sl@((s,c,l):xs) = do r <- ask let (conf,d) = (config &&& display) r - Rectangle _ _ wid ht = rect r + Rectangle _ _ wid _ = rect r (_,rl) = wcTextExtents fontst s totSLen = foldr (\(_,_,len) -> (+) len) 0 sl - valign = (fi ht + fi (rect_height rl)) `div` 2 + valign = fi $ rect_height rl remWidth = fi wid - fi totSLen offset = case a of C -> (remWidth + offs) `div` 2 -- cgit v1.2.3