diff options
| author | jao <jao@gnu.org> | 2018-11-30 05:27:53 +0000 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2018-11-30 05:27:53 +0000 |
| commit | a9df65ad952251d2f0c837add0cfe4626d321bf8 (patch) | |
| tree | 14111b70e96ab310c6d70700f32f8966059adb70 /src/Xmobar/Config | |
| parent | fa681551411e8c74e6462f6997c37fcc38335d4d (diff) | |
| download | xmobar-a9df65ad952251d2f0c837add0cfe4626d321bf8.tar.gz xmobar-a9df65ad952251d2f0c837add0cfe4626d321bf8.tar.bz2 | |
Self-compilation a la xmonad
Diffstat (limited to 'src/Xmobar/Config')
| -rw-r--r-- | src/Xmobar/Config/Parse.hs | 5 | ||||
| -rw-r--r-- | src/Xmobar/Config/Types.hs | 1 |
2 files changed, 4 insertions, 2 deletions
diff --git a/src/Xmobar/Config/Parse.hs b/src/Xmobar/Config/Parse.hs index 1a57ffa..00ce99c 100644 --- a/src/Xmobar/Config/Parse.hs +++ b/src/Xmobar/Config/Parse.hs @@ -67,7 +67,7 @@ parseConfig defaultConfig = <|?> pAllDesktops <|?> pOverrideRedirect <|?> pPickBroadest <|?> pLowerOnStart <|?> pPersistent <|?> pIconRoot <|?> pCommands <|?> pSepChar <|?> pAlignSep <|?> pTemplate - + <|?> pVerbose fields = [ "font", "additionalFonts","bgColor", "fgColor" , "wmClass", "wmName", "sepChar" @@ -75,7 +75,7 @@ parseConfig defaultConfig = , "position" , "textOffset", "textOffsets", "iconOffset" , "allDesktops", "overrideRedirect", "pickBroadest" , "hideOnStart", "lowerOnStart", "persistent", "iconRoot" - , "alpha", "commands" + , "alpha", "commands", "verbose" ] pFont = strField font "font" @@ -103,6 +103,7 @@ parseConfig defaultConfig = pPickBroadest = readField pickBroadest "pickBroadest" pIconRoot = readField iconRoot "iconRoot" pAlpha = readField alpha "alpha" + pVerbose = readField verbose "verbose" pCommands = field commands "commands" readCommands diff --git a/src/Xmobar/Config/Types.hs b/src/Xmobar/Config/Types.hs index ab85d5b..d59c993 100644 --- a/src/Xmobar/Config/Types.hs +++ b/src/Xmobar/Config/Types.hs @@ -64,6 +64,7 @@ data Config = , alignSep :: String -- ^ Separators for left, center and -- right text alignment , template :: String -- ^ The output template + , verbose :: Bool -- ^ Emit additional debug messages } deriving (Read) data XPosition = Top |