From c021fa855e48ec8877b35e2dd9fe94d3f29e09ab Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Sat, 22 Dec 2007 03:05:20 +0100 Subject: Add support for several flags: --version: print xmonad's version --recompile: recompile xmonad.hs if it is out of date --force-recompile: recompile xmonad.hs unconditionally darcs-hash:20071222020520-a5988-0ce148dc9bd7c5c39f54f75957fc10561f1623a0.gz --- Main.hs | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) (limited to 'Main.hs') diff --git a/Main.hs b/Main.hs index a38f697..ca34dc1 100644 --- a/Main.hs +++ b/Main.hs @@ -26,8 +26,15 @@ import System.Posix.Process (executeFile) -- for xmonad, and if it doesn't find one, just launches the default. main :: IO () main = do - handle (hPrint stderr) buildLaunch - xmonad defaultConfig -- if buildLaunch returns, execute the trusted core + args <- getArgs + let launch = handle (hPrint stderr) buildLaunch >> xmonad defaultConfig + case args of + [] -> launch + ["--resume", _] -> launch + ["--recompile"] -> recompile False + ["--recompile-force"] -> recompile True + ["--version"] -> putStrLn "xmonad 0.5" + _ -> fail "unrecognized flags" -- | Build "~/.xmonad/xmonad.hs" with ghc, then execute it. If there are no -- errors, this function does not return. An exception is raised in any of -- cgit v1.2.3