diff options
| author | jao <jao@gnu.org> | 2014-12-29 23:56:42 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2014-12-30 00:26:36 +0100 |
| commit | 22d41c0e611a7c2cc51209a4cc750ee87921e54a (patch) | |
| tree | b43d12c74f91a6cdef3878010da9d8935abf1368 /src/Main.hs | |
| parent | 87e92c4023a4a6cac5b6ff2e95b6d346eef10bd3 (diff) | |
| parent | a98ac8fba46b8858959cee6062a49c9121f07fe9 (diff) | |
| download | xmobar-22d41c0e611a7c2cc51209a4cc750ee87921e54a.tar.gz xmobar-22d41c0e611a7c2cc51209a4cc750ee87921e54a.tar.bz2 | |
Merge branch 'transparency' of https://github.com/ezyang/xmobar
Conflicts:
src/Config.hs
src/Main.hs
src/Parsers.hs
src/XUtil.hsc
src/Xmobar.hs
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/Main.hs b/src/Main.hs index 5266cd1..4146c1c 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -121,6 +121,7 @@ data Opts = Help | Font String | BgColor String | FgColor String + | Alpha String | T | B | D @@ -144,6 +145,8 @@ options = "The foreground color. Default grey" , Option "i" ["iconroot"] (ReqArg IconRoot "path") "Root directory for icon pattern paths. Default '.'" + , Option "a" ["alpha"] (ReqArg Alpha "alpha") + "The transparency: 0 is transparent, 255 is opaque" , Option "o" ["top"] (NoArg T) "Place xmobar at the top of the screen" , Option "b" ["bottom"] (NoArg B) "Place xmobar at the bottom of the screen" @@ -200,6 +203,7 @@ doOpts conf (o:oo) = Font s -> doOpts' (conf {font = s}) BgColor s -> doOpts' (conf {bgColor = s}) FgColor s -> doOpts' (conf {fgColor = s}) + Alpha n -> doOpts' (conf {alpha = read n}) T -> doOpts' (conf {position = Top}) B -> doOpts' (conf {position = Bottom}) D -> doOpts' (conf {overrideRedirect = False}) |