From f42813b383f4bbc533ae7a38df1782febf5eb444 Mon Sep 17 00:00:00 2001 From: jao Date: Sat, 29 Jan 2022 04:56:03 +0000 Subject: Color escape sequences for text output --- src/Xmobar/Config/Parse.hs | 6 ++++-- src/Xmobar/Config/Types.hs | 1 + 2 files changed, 5 insertions(+), 2 deletions(-) (limited to 'src/Xmobar/Config') 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 -- cgit v1.2.3