summaryrefslogtreecommitdiffhomepage
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/Config.hs4
-rw-r--r--src/Main.hs2
-rw-r--r--src/Parsers.hs4
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"