summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
-rw-r--r--Main.hs3
-rw-r--r--README1
2 files changed, 4 insertions, 0 deletions
diff --git a/Main.hs b/Main.hs
index e6a88a9..c8ce30d 100644
--- a/Main.hs
+++ b/Main.hs
@@ -88,6 +88,7 @@ data Opts = Help
| Commands String
| SepChar String
| Template String
+ | OnScr String
deriving Show
options :: [OptDescr Opts]
@@ -103,6 +104,7 @@ options =
, Option ['s' ] ["sepchar" ] (ReqArg SepChar "char" ) "The character used to separate commands in\nthe output template. Default '%'"
, Option ['t' ] ["template" ] (ReqArg Template "template" ) "The output template"
, Option ['c' ] ["commands" ] (ReqArg Commands "commands" ) "The list of commands to be executed"
+ , Option ['x' ] ["screen" ] (ReqArg OnScr "screen" ) "On which X screen number to start"
]
getOpts :: [String] -> IO ([Opts], [String])
@@ -142,6 +144,7 @@ doOpts conf (o:oo) =
AlignSep s -> modifyIORef conf (\c -> c { alignSep = s }) >> go
SepChar s -> modifyIORef conf (\c -> c { sepChar = s }) >> go
Template s -> modifyIORef conf (\c -> c { template = s }) >> go
+ OnScr n -> modifyIORef conf (\c -> c { position = OnScreen (read n) $ position c }) >> go
Commands s -> case readCom s of
Right x -> modifyIORef conf (\c -> c { commands = x }) >> go
Left e -> putStr (e ++ usage) >> exitWith (ExitFailure 1)
diff --git a/README b/README
index e186367..f63d3d4 100644
--- a/README
+++ b/README
@@ -197,6 +197,7 @@ xmobar --help):
the output template. Default '%'
-t template --template=template The output template
-c commands --commands=commands The list of commands to be executed
+ -x screen --screen=screen On which X screen number to start
Mail bug reports and suggestions to <andrea.rossato@unibz.it>
### The Output Template