From a98ac8fba46b8858959cee6062a49c9121f07fe9 Mon Sep 17 00:00:00 2001 From: "Edward Z. Yang" Date: Mon, 28 Nov 2011 02:09:41 -0500 Subject: Transparency and tint support. New configuration option 'alpha' which adjusts alpha transparency (0 is transparent, 255 is opaque). Signed-off-by: Edward Z. Yang --- src/Parsers.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/Parsers.hs') diff --git a/src/Parsers.hs b/src/Parsers.hs index 919ce68..a5869ef 100644 --- a/src/Parsers.hs +++ b/src/Parsers.hs @@ -164,7 +164,7 @@ parseConfig = runParser parseConf fields "Config" . stripComments perms = permute $ Config <$?> pFont <|?> pBgColor <|?> pFgColor <|?> pPosition - <|?> pBorder <|?> pBdColor <|?> pHideOnStart <|?> pAllDesktops + <|?> pBorder <|?> pBdColor <|?> pAlpha <|?> pHideOnStart <|?> pAllDesktops <|?> pOverrideRedirect <|?> pLowerOnStart <|?> pPersistent <|?> pCommands <|?> pSepChar <|?> pAlignSep <|?> pTemplate @@ -182,6 +182,7 @@ parseConfig = runParser parseConf fields "Config" . stripComments pAlignSep = strField alignSep "alignSep" pTemplate = strField template "template" + pAlpha = readField alpha "alpha" pPosition = readField position "position" pHideOnStart = readField hideOnStart "hideOnStart" pLowerOnStart = readField lowerOnStart "lowerOnStart" -- cgit v1.2.3