diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Config.hs | 4 | ||||
| -rw-r--r-- | src/Main.hs | 2 | ||||
| -rw-r--r-- | src/Parsers.hs | 4 |
3 files changed, 5 insertions, 5 deletions
diff --git a/src/Config.hs b/src/Config.hs index 7929011..59d6bd4 100644 --- a/src/Config.hs +++ b/src/Config.hs @@ -49,7 +49,7 @@ import Plugins.DateZone -- | The configuration data type data Config = Config { font :: String -- ^ Font - , fontList :: [String] -- ^ List of alternative fonts + , additionalFonts :: [String] -- ^ List of alternative fonts , bgColor :: String -- ^ Backgroud color , fgColor :: String -- ^ Default font color , position :: XPosition -- ^ Top Bottom or Static @@ -111,7 +111,7 @@ data Border = NoBorder defaultConfig :: Config defaultConfig = Config { font = "-misc-fixed-*-*-*-*-10-*-*-*-*-*-*-*" - , fontList = [] + , additionalFonts = [] , bgColor = "#000000" , fgColor = "#BFBFBF" , alpha = 255 diff --git a/src/Main.hs b/src/Main.hs index 0eca0cb..209eee1 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -59,7 +59,7 @@ main = do conf <- doOpts c o fs <- initFont d (font conf) - fl <- mapM (initFont d) (fontList conf) + fl <- mapM (initFont d) (additionalFonts conf) cls <- mapM (parseTemplate conf) (splitTemplate conf) sig <- setupSignalHandler vars <- mapM (mapM $ startCommand sig) cls diff --git a/src/Parsers.hs b/src/Parsers.hs index 59a1dc7..25d215b 100644 --- a/src/Parsers.hs +++ b/src/Parsers.hs @@ -220,7 +220,7 @@ parseConfig = runParser parseConf fields "Config" . stripComments <|?> pCommands <|?> pSepChar <|?> pAlignSep <|?> pTemplate - fields = [ "font", "fontList","bgColor", "fgColor", "sepChar" + fields = [ "font", "additionalFonts","bgColor", "fgColor", "sepChar" , "alignSep" , "border", "borderColor" ,"template" , "position" , "textOffset", "iconOffset" , "allDesktops", "overrideRedirect", "pickBroadest" @@ -229,7 +229,7 @@ parseConfig = runParser parseConf fields "Config" . stripComments ] pFont = strField font "font" - pFontList = strListField fontList "fontList" + pFontList = strListField additionalFonts "additionalFonts" pBgColor = strField bgColor "bgColor" pFgColor = strField fgColor "fgColor" pBdColor = strField borderColor "borderColor" |