From b89668884f021e1023160febb680a43588a6aeaa Mon Sep 17 00:00:00 2001 From: jao Date: Fri, 15 Dec 2017 03:32:27 +0100 Subject: Configurable WM_CLASS and WM_NAME (should address #323) --- src/Parsers.hs | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'src/Parsers.hs') diff --git a/src/Parsers.hs b/src/Parsers.hs index 5f5949c..bab13cb 100644 --- a/src/Parsers.hs +++ b/src/Parsers.hs @@ -212,7 +212,8 @@ parseConfig = runParser parseConf fields "Config" . stripComments return (x,s) perms = permute $ Config - <$?> pFont <|?> pFontList <|?> pBgColor <|?> pFgColor + <$?> pFont <|?> pFontList <|?> pWmClass <|?> pWmName + <|?> pBgColor <|?> pFgColor <|?> pPosition <|?> pTextOffset <|?> pIconOffset <|?> pBorder <|?> pBdColor <|?> pBdWidth <|?> pAlpha <|?> pHideOnStart <|?> pAllDesktops <|?> pOverrideRedirect <|?> pPickBroadest @@ -220,7 +221,8 @@ parseConfig = runParser parseConf fields "Config" . stripComments <|?> pCommands <|?> pSepChar <|?> pAlignSep <|?> pTemplate - fields = [ "font", "additionalFonts","bgColor", "fgColor", "sepChar" + fields = [ "font", "additionalFonts","bgColor", "fgColor" + , "wmClass", "wmName", "sepChar" , "alignSep" , "border", "borderColor" ,"template" , "position" , "textOffset", "iconOffset" , "allDesktops", "overrideRedirect", "pickBroadest" @@ -230,6 +232,8 @@ parseConfig = runParser parseConf fields "Config" . stripComments pFont = strField font "font" pFontList = strListField additionalFonts "additionalFonts" + pWmClass = strField wmClass "wmclass" + pWmName = strField wmName "windowName" pBgColor = strField bgColor "bgColor" pFgColor = strField fgColor "fgColor" pBdColor = strField borderColor "borderColor" -- cgit v1.2.3