From 28e09ba6aa2b00df1470660f5cde2a91a26f9ce7 Mon Sep 17 00:00:00 2001
From: Andrea Rossato <andrea.rossato@ing.unitn.it>
Date: Thu, 5 Jul 2007 15:16:11 +0200
Subject: minor

darcs-hash:20070705131611-d6583-6be3ca1a4e1e74999df1e0205e0f110e650a810a.gz
---
 XMobar.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/XMobar.hs b/XMobar.hs
index 2b8aa4c..b371a24 100644
--- a/XMobar.hs
+++ b/XMobar.hs
@@ -144,7 +144,7 @@ printStrings gc fontst offs sl@((s,c,l):xs) =
            valign = (fromIntegral (hight config) + fromIntegral asc) `div` 2
            offset = case (align config) of
                       "center" -> (fromIntegral (width config) - fromIntegral totSLen) `div` 2
-                      "right" -> fromIntegral (width config) - fromIntegral totSLen
+                      "right" -> fromIntegral (width config) - fromIntegral totSLen - 1
                       "left" -> offs
                       _ -> offs
        color <- io $ initColor (display st) c
@@ -163,7 +163,7 @@ getOptions c com =
          [(_,_,opts)] -> opts
          _ -> []
 
--- | Gets the command options set in configuration.
+-- | Gets the refresh rate set in configuration for a given command.
 getRefRate :: Config -> String -> Int
 getRefRate c com =
     let l = commands c
-- 
cgit v1.2.3