summaryrefslogtreecommitdiffhomepage
path: root/src/Parsers.hs
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2013-04-25 03:54:31 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2013-04-25 03:54:31 +0200
commit7137846ac7364445986e5c480ae425dc28487e5e (patch)
treec03a93516e665be3f54e69175f48141380ce3e45 /src/Parsers.hs
parentc5926232e494786eb618458d743685a3f01a3c62 (diff)
downloadxmobar-7137846ac7364445986e5c480ae425dc28487e5e.tar.gz
xmobar-7137846ac7364445986e5c480ae425dc28487e5e.tar.bz2
New overrideRedirect configuration parameter
Diffstat (limited to 'src/Parsers.hs')
-rw-r--r--src/Parsers.hs9
1 files changed, 5 insertions, 4 deletions
diff --git a/src/Parsers.hs b/src/Parsers.hs
index efff506..414f324 100644
--- a/src/Parsers.hs
+++ b/src/Parsers.hs
@@ -157,13 +157,13 @@ parseConfig = runParser parseConf fields "Config" . stripComments
perms = permute $ Config
<$?> pFont <|?> pBgColor <|?> pFgColor <|?> pPosition
<|?> pBorder <|?> pBdColor <|?> pHideOnStart <|?> pAllDesktops
- <|?> pLowerOnStart <|?> pPersistent <|?> pCommands
- <|?> pSepChar <|?> pAlignSep <|?> pTemplate
+ <|?> pOverrideRedirect <|?> pLowerOnStart <|?> pPersistent
+ <|?> pCommands <|?> pSepChar <|?> pAlignSep <|?> pTemplate
fields = [ "font", "bgColor", "fgColor", "sepChar", "alignSep"
, "border", "borderColor" ,"template", "position"
- , "allDesktops", "hideOnStart", "lowerOnStart"
- , "persistent", "commands"
+ , "allDesktops", "overrideRedirect"
+ , "hideOnStart", "lowerOnStart", "persistent", "commands"
]
pFont = strField font "font"
@@ -180,6 +180,7 @@ parseConfig = runParser parseConf fields "Config" . stripComments
pPersistent = readField persistent "persistent"
pBorder = readField border "border"
pAllDesktops = readField allDesktops "allDesktops"
+ pOverrideRedirect = readField overrideRedirect "overrideRedirect"
pCommands = field commands "commands" readCommands