summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
-rw-r--r--XMobar.hs5
1 files changed, 3 insertions, 2 deletions
diff --git a/XMobar.hs b/XMobar.hs
index 1e3a82a..ae8d5fe 100644
--- a/XMobar.hs
+++ b/XMobar.hs
@@ -142,9 +142,10 @@ printStrings gc fontst offs sl@((s,c,l):xs) =
let (_,asc,_,_) = textExtents fontst s
totSLen = foldr (\(_,_,len) -> (+) len) 0 sl
valign = (fromIntegral (height config) + fromIntegral asc) `div` 2
+ remWidth = fromIntegral (width config) - fromIntegral totSLen
offset = case (align config) of
- "center" -> (fromIntegral (width config) - fromIntegral totSLen) `div` 2
- "right" -> fromIntegral (width config) - fromIntegral totSLen - 1
+ "center" -> (remWidth + offs) `div` 2
+ "right" -> remWidth - 1
"left" -> offs
_ -> offs
color <- io $ initColor (display st) c