summaryrefslogtreecommitdiffhomepage
path: root/src/Main.hs
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2014-09-26 02:52:00 +0200
committerjao <jao@gnu.org>2014-09-26 02:52:00 +0200
commita04850b0cbe4355dc7bd083a353fabdc644a24fb (patch)
tree8bc1edbc1fb14e942e7c5f226aba7f11756c15d3 /src/Main.hs
parent05554f239c79d738848f5453b16b8ad01e9a5f50 (diff)
downloadxmobar-a04850b0cbe4355dc7bd083a353fabdc644a24fb.tar.gz
xmobar-a04850b0cbe4355dc7bd083a353fabdc644a24fb.tar.bz2
CLI switch for iconRoot (-i)
Diffstat (limited to 'src/Main.hs')
-rw-r--r--src/Main.hs4
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})