Add command line option for picking a screen

Ignore-this: 5d9ddc7847f9000346b2ad18f95262db

darcs-hash:20090420003639-1499c-17fada63bc113031eee5cd1b87d3aea520b380df.gz

1 files changed, 3 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)