diff options
| author | Alexander Shabalin <shabalyn.a@gmail.com> | 2014-09-14 14:28:26 +0400 |
|---|---|---|
| committer | Alexander Shabalin <shabalyn.a@gmail.com> | 2014-09-24 23:49:47 +0400 |
| commit | 05554f239c79d738848f5453b16b8ad01e9a5f50 (patch) | |
| tree | fba70a167596c7bbb8c668f9084e14e70b9ba1b7 /src/Xmobar.hs | |
| parent | 2215d77ff8ffb55cfd0c098a017a86ecf0620b05 (diff) | |
| download | xmobar-05554f239c79d738848f5453b16b8ad01e9a5f50.tar.gz xmobar-05554f239c79d738848f5453b16b8ad01e9a5f50.tar.bz2 | |
Add iconRoot config option
For all <icon=path/> if path does not start with "/", "./", "../"
it will have iconRoot ++ "/" prepended to it.
Diffstat (limited to 'src/Xmobar.hs')
| -rw-r--r-- | src/Xmobar.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Xmobar.hs b/src/Xmobar.hs index 91245e2..33feeb0 100644 --- a/src/Xmobar.hs +++ b/src/Xmobar.hs @@ -151,7 +151,7 @@ eventLoop tv xc@(XConf d r w fs is cfg) as signal = do case typ of Wakeup -> do str <- updateString cfg tv - xc' <- updateCache d w is str >>= \c -> return xc { iconS = c } + xc' <- updateCache d w is (iconRoot cfg) str >>= \c -> return xc { iconS = c } as' <- updateActions xc r str runX xc' $ drawInWin r str eventLoop tv xc' as' signal |