summaryrefslogtreecommitdiffhomepage
path: root/src/Xmobar/Config/Parse.hs
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2022-01-28 05:11:09 +0000
committerjao <jao@gnu.org>2022-01-29 06:42:29 +0000
commit0d3021eb601dadfa10fae30f108108894086c82c (patch)
tree887481657041ed1dad5e86d47ab61594e52654b6 /src/Xmobar/Config/Parse.hs
parent93da696658061e1c14fdca70b6c0f04c412b1fd8 (diff)
downloadxmobar-0d3021eb601dadfa10fae30f108108894086c82c.tar.gz
xmobar-0d3021eb601dadfa10fae30f108108894086c82c.tar.bz2
Basic text output, without colors, working
Diffstat (limited to 'src/Xmobar/Config/Parse.hs')
-rw-r--r--src/Xmobar/Config/Parse.hs7
1 files changed, 4 insertions, 3 deletions
diff --git a/src/Xmobar/Config/Parse.hs b/src/Xmobar/Config/Parse.hs
index f7c8b31..e7d5933 100644
--- a/src/Xmobar/Config/Parse.hs
+++ b/src/Xmobar/Config/Parse.hs
@@ -2,7 +2,7 @@
------------------------------------------------------------------------------
-- |
-- Module: Xmobar.Config.Parse
--- Copyright: (c) 2018, 2020 Jose Antonio Ortega Ruiz
+-- Copyright: (c) 2018, 2020, 2022 Jose Antonio Ortega Ruiz
-- License: BSD3-style (see LICENSE)
--
-- Maintainer: jao@gnu.org
@@ -62,7 +62,7 @@ parseConfig defaultConfig =
perms = permute $ Config
<$?> pFont <|?> pFontList <|?> pWmClass <|?> pWmName
<|?> pBgColor <|?> pFgColor
- <|?> pPosition <|?> pTextOffset <|?> pTextOffsets
+ <|?> pPosition <|?> pTextOutput <|?> pTextOffset <|?> pTextOffsets
<|?> pIconOffset <|?> pBorder
<|?> pBdColor <|?> pBdWidth <|?> pAlpha <|?> pHideOnStart
<|?> pAllDesktops <|?> pOverrideRedirect <|?> pPickBroadest
@@ -76,9 +76,10 @@ parseConfig defaultConfig =
, "position" , "textOffset", "textOffsets", "iconOffset"
, "allDesktops", "overrideRedirect", "pickBroadest"
, "hideOnStart", "lowerOnStart", "persistent", "iconRoot"
- , "alpha", "commands", "verbose", "signal"
+ , "alpha", "commands", "verbose", "signal", "textOutput"
]
+ pTextOutput = readField textOutput "textOutput"
pFont = strField font "font"
pFontList = strListField additionalFonts "additionalFonts"
pWmClass = strField wmClass "wmClass"