diff options
| author | Andrea Rossato <andrea.rossato@ing.unitn.it> | 2007-07-05 15:16:11 +0200 |
|---|---|---|
| committer | Andrea Rossato <andrea.rossato@ing.unitn.it> | 2007-07-05 15:16:11 +0200 |
| commit | 28e09ba6aa2b00df1470660f5cde2a91a26f9ce7 (patch) | |
| tree | fcc20917693ba2547948278afccc495eee7ed153 /XMobar.hs | |
| parent | 71d9835f761020fac3f22dcb2229d684eeddb083 (diff) | |
| download | xmobar-28e09ba6aa2b00df1470660f5cde2a91a26f9ce7.tar.gz xmobar-28e09ba6aa2b00df1470660f5cde2a91a26f9ce7.tar.bz2 | |
minor
darcs-hash:20070705131611-d6583-6be3ca1a4e1e74999df1e0205e0f110e650a810a.gz
Diffstat (limited to 'XMobar.hs')
| -rw-r--r-- | XMobar.hs | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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 |