From 73a3ef7912ce9c9d43d04767f06a7928087f1c51 Mon Sep 17 00:00:00 2001
From: Norbert Zeh <nzeh@cs.dal.ca>
Date: Fri, 31 Jul 2009 04:54:48 +0200
Subject: Fix right-alignment of strings

Ignore-this: c8788007de87e0832575047b9ba4780b

The alignment of right-aligned content was off by one.  Fixed that.

darcs-hash:20090731025448-18a2b-bb7b517e2a9ac57f03914051d6203a980fd9fbf9.gz
---
 Xmobar.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Xmobar.hs b/Xmobar.hs
index 1ad18e1..7dd51c0 100644
--- a/Xmobar.hs
+++ b/Xmobar.hs
@@ -277,7 +277,7 @@ printStrings dr gc fontst offs a sl@((s,c,l):xs) = do
       remWidth             = fi wid - fi totSLen
       offset               = case a of
                                C -> (remWidth + offs) `div` 2
-                               R -> remWidth - 1
+                               R -> remWidth
                                L -> offs
       (fc,bc)              = case (break (==',') c) of
                                (f,',':b) -> (f, b           )
-- 
cgit v1.2.3