diff options
| author | jao <jao@gnu.org> | 2018-07-10 16:21:26 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2018-07-10 16:23:11 +0100 |
| commit | a2365debfaba478042184f5831675d1b08172cc7 (patch) | |
| tree | abb4b37777ab965303b0a4a974d5dea9956af9d8 /src/Main.hs | |
| parent | 741b803b943430a262ec36658b13830733e17b48 (diff) | |
| download | xmobar-a2365debfaba478042184f5831675d1b08172cc7.tar.gz xmobar-a2365debfaba478042184f5831675d1b08172cc7.tar.bz2 | |
New configuration parameter `textOffsets` (fixes #311)
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/Main.hs b/src/Main.hs index 0c96688..4f35b38 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -66,7 +66,9 @@ main = do vars <- mapM (mapM $ startCommand sig) cls (r,w) <- createWin d fs conf let ic = Map.empty - startLoop (XConf d r w (fs:fl) ic conf) sig vars + to = textOffset conf + ts = textOffsets conf ++ replicate (length fl) (-1) + startLoop (XConf d r w (fs:fl) (to:ts) ic conf) sig vars -- | Splits the template in its parts splitTemplate :: Config -> [String] @@ -190,7 +192,7 @@ usage = usageInfo header options ++ footer info :: String info = "xmobar " ++ showVersion version ++ "\n (C) 2007 - 2010 Andrea Rossato " - ++ "\n (C) 2010 - 2017 Jose A Ortega Ruiz\n " + ++ "\n (C) 2010 - 2018 Jose A Ortega Ruiz\n " ++ mail ++ "\n" ++ license mail :: String |