diff options
| author | jao <jao@gnu.org> | 2014-09-26 02:52:00 +0200 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2014-09-26 02:52:00 +0200 |
| commit | a04850b0cbe4355dc7bd083a353fabdc644a24fb (patch) | |
| tree | 8bc1edbc1fb14e942e7c5f226aba7f11756c15d3 /src/Main.hs | |
| parent | 05554f239c79d738848f5453b16b8ad01e9a5f50 (diff) | |
| download | xmobar-a04850b0cbe4355dc7bd083a353fabdc644a24fb.tar.gz xmobar-a04850b0cbe4355dc7bd083a353fabdc644a24fb.tar.bz2 | |
CLI switch for iconRoot (-i)
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 f3885ff..5266cd1 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -130,6 +130,7 @@ data Opts = Help | SepChar String | Template String | OnScr String + | IconRoot String deriving Show options :: [OptDescr Opts] @@ -141,6 +142,8 @@ options = "The background color. Default black" , Option "F" ["fgcolor"] (ReqArg FgColor "fg color") "The foreground color. Default grey" + , Option "i" ["iconroot"] (ReqArg IconRoot "path") + "Root directory for icon pattern paths. Default '.'" , 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" @@ -203,6 +206,7 @@ doOpts conf (o:oo) = AlignSep s -> doOpts' (conf {alignSep = s}) SepChar s -> doOpts' (conf {sepChar = s}) Template s -> doOpts' (conf {template = s}) + IconRoot s -> doOpts' (conf {iconRoot = s}) OnScr n -> doOpts' (conf {position = OnScreen (read n) $ position conf}) Commands s -> case readCom 'c' s of Right x -> doOpts' (conf {commands = x}) |