summaryrefslogtreecommitdiffhomepage
path: root/src/Parsers.hs
diff options
context:
space:
mode:
authorAlexander Shabalin <shabalyn.a@gmail.com>2014-09-14 14:28:26 +0400
committerAlexander Shabalin <shabalyn.a@gmail.com>2014-09-24 23:49:47 +0400
commit05554f239c79d738848f5453b16b8ad01e9a5f50 (patch)
treefba70a167596c7bbb8c668f9084e14e70b9ba1b7 /src/Parsers.hs
parent2215d77ff8ffb55cfd0c098a017a86ecf0620b05 (diff)
downloadxmobar-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/Parsers.hs')
-rw-r--r--src/Parsers.hs6
1 files changed, 4 insertions, 2 deletions
diff --git a/src/Parsers.hs b/src/Parsers.hs
index 5e6f4d6..dceb4b7 100644
--- a/src/Parsers.hs
+++ b/src/Parsers.hs
@@ -201,14 +201,15 @@ parseConfig = runParser parseConf fields "Config" . stripComments
<$?> pFont <|?> pBgColor <|?> pFgColor <|?> pPosition
<|?> pBorder <|?> pBdColor <|?> pBdWidth <|?> pHideOnStart
<|?> pAllDesktops <|?> pOverrideRedirect <|?> pPickBroadest
- <|?> pLowerOnStart <|?> pPersistent
+ <|?> pLowerOnStart <|?> pPersistent <|?> pIconRoot
<|?> pCommands <|?> pSepChar <|?> pAlignSep <|?> pTemplate
fields = [ "font", "bgColor", "fgColor", "sepChar", "alignSep"
, "border", "borderColor" ,"template", "position"
, "allDesktops", "overrideRedirect", "pickBroadest"
- , "hideOnStart", "lowerOnStart", "persistent", "commands"
+ , "hideOnStart", "lowerOnStart", "persistent", "iconRoot"
+ , "commands"
]
pFont = strField font "font"
@@ -228,6 +229,7 @@ parseConfig = runParser parseConf fields "Config" . stripComments
pAllDesktops = readField allDesktops "allDesktops"
pOverrideRedirect = readField overrideRedirect "overrideRedirect"
pPickBroadest = readField pickBroadest "pickBroadest"
+ pIconRoot = readField iconRoot "iconRoot"
pCommands = field commands "commands" readCommands