summaryrefslogtreecommitdiffhomepage
path: root/src/Xmobar/X11/Draw.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Xmobar/X11/Draw.hs')
-rw-r--r--src/Xmobar/X11/Draw.hs9
1 files changed, 4 insertions, 5 deletions
diff --git a/src/Xmobar/X11/Draw.hs b/src/Xmobar/X11/Draw.hs
index 8906da2..af8edc4 100644
--- a/src/Xmobar/X11/Draw.hs
+++ b/src/Xmobar/X11/Draw.hs
@@ -158,11 +158,10 @@ printStrings dr gc fontlist voffs offs a boxes sl@((s,c,i,l):xs) = do
(Icon p) -> liftIO $ maybe (return ())
(B.drawBitmap d dr gc fc bc offset valign)
(lookup p (iconS r))
- let x2 = offset + l - 1
let triBoxes = tBoxes c
dropBoxes = filter (\(_,b) -> not(b `elem` triBoxes)) boxes
- boxes' = map (\((x1,_),b) -> ((x1, x2), b)) (filter (\(_,b) -> b `elem` triBoxes) boxes)
- ++ map (\b -> ((offset - 1, x2), b)) (triBoxes \\ (map snd boxes))
+ boxes' = map (\((x1,_),b) -> ((x1, offset + l), b)) (filter (\(_,b) -> b `elem` triBoxes) boxes)
+ ++ map (\b -> ((offset, offset + l), b)) (triBoxes \\ (map snd boxes))
if Prelude.null xs
then liftIO $ drawBoxes d dr gc (fromIntegral ht) (dropBoxes ++ boxes')
else liftIO $ drawBoxes d dr gc (fromIntegral ht) dropBoxes
@@ -199,5 +198,5 @@ drawBoxBorder d dr gc pos alg offset ht (x1,x2) = do
case pos of
BBTop -> drawLine d dr gc (x1 + p1) 0 (x2 + p2) 0
BBBottom -> drawLine d dr gc (x1 + p1) (ht - 1) (x2 + p2) (ht - 1)
- BBLeft -> drawLine d dr gc x1 p1 x1 (ht + p2)
- BBRight -> drawLine d dr gc x2 p1 x2 (ht + p2)
+ BBLeft -> drawLine d dr gc (x1 - 1) p1 (x1 - 1) (ht + p2)
+ BBRight -> drawLine d dr gc (x2 - 1) p1 (x2 - 1) (ht + p2)