summaryrefslogtreecommitdiffhomepage
path: root/src/Xmobar/Config
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2022-01-29 04:56:03 +0000
committerjao <jao@gnu.org>2022-01-29 06:42:29 +0000
commitf42813b383f4bbc533ae7a38df1782febf5eb444 (patch)
treefe44a4d886babb7368122fb3ad57a005847f8c41 /src/Xmobar/Config
parent1af4da53f7f3b0bc9f0c337113a90448f035a4b1 (diff)
downloadxmobar-f42813b383f4bbc533ae7a38df1782febf5eb444.tar.gz
xmobar-f42813b383f4bbc533ae7a38df1782febf5eb444.tar.bz2
Color escape sequences for text output
Diffstat (limited to 'src/Xmobar/Config')
-rw-r--r--src/Xmobar/Config/Parse.hs6
-rw-r--r--src/Xmobar/Config/Types.hs1
2 files changed, 5 insertions, 2 deletions
diff --git a/src/Xmobar/Config/Parse.hs b/src/Xmobar/Config/Parse.hs
index e7d5933..4c43e4d 100644
--- a/src/Xmobar/Config/Parse.hs
+++ b/src/Xmobar/Config/Parse.hs
@@ -61,8 +61,9 @@ parseConfig defaultConfig =
perms = permute $ Config
<$?> pFont <|?> pFontList <|?> pWmClass <|?> pWmName
- <|?> pBgColor <|?> pFgColor
- <|?> pPosition <|?> pTextOutput <|?> pTextOffset <|?> pTextOffsets
+ <|?> pBgColor <|?> pFgColor <|?> pPosition
+ <|?> pTextOutput <|?> pAnsiColors
+ <|?> pTextOffset <|?> pTextOffsets
<|?> pIconOffset <|?> pBorder
<|?> pBdColor <|?> pBdWidth <|?> pAlpha <|?> pHideOnStart
<|?> pAllDesktops <|?> pOverrideRedirect <|?> pPickBroadest
@@ -80,6 +81,7 @@ parseConfig defaultConfig =
]
pTextOutput = readField textOutput "textOutput"
+ pAnsiColors = readField textOutput "textAnsiColors"
pFont = strField font "font"
pFontList = strListField additionalFonts "additionalFonts"
pWmClass = strField wmClass "wmClass"
diff --git a/src/Xmobar/Config/Types.hs b/src/Xmobar/Config/Types.hs
index 816edaa..6ea012f 100644
--- a/src/Xmobar/Config/Types.hs
+++ b/src/Xmobar/Config/Types.hs
@@ -37,6 +37,7 @@ data Config =
, fgColor :: String -- ^ Default font color
, position :: XPosition -- ^ Top Bottom or Static
, textOutput :: Bool -- ^ Write data to stdout instead of X
+ , ansiColors :: Bool -- ^ Use ANSI color escapes for stdout
, textOffset :: Int -- ^ Offset from top of window for text
, textOffsets :: [Int] -- ^ List of offsets for additionalFonts
, iconOffset :: Int -- ^ Offset from top of window for icons