summaryrefslogtreecommitdiffstats
path: root/Main.hs
diff options
context:
space:
mode:
authorSpencer Janssen <spencerjanssen@gmail.com>2009-01-17 04:49:59 +0100
committerSpencer Janssen <spencerjanssen@gmail.com>2009-01-17 04:49:59 +0100
commitd200a1bb6dda29222ab948c2b8d8d69139cbd31e (patch)
tree173e1553bbe2a875c1e90fa50d6c9fe32f1c5554 /Main.hs
parent1b2ce920c53098b76043bcf17db31068fdba7a15 (diff)
downloadmetatile-d200a1bb6dda29222ab948c2b8d8d69139cbd31e.tar
metatile-d200a1bb6dda29222ab948c2b8d8d69139cbd31e.zip
Add --restart, a command line flag to cause a running xmonad process to restart
Ignore-this: 45c8c8aba7cc7391b95c7e3fb01e5bf9 darcs-hash:20090117034959-25a6b-794fb65d26a59f6ca34b16538c35dc3c266ced7d
Diffstat (limited to 'Main.hs')
-rw-r--r--Main.hs13
1 files changed, 13 insertions, 0 deletions
diff --git a/Main.hs b/Main.hs
index 29ae822..d99b381 100644
--- a/Main.hs
+++ b/Main.hs
@@ -40,6 +40,7 @@ main = do
["--resume", _] -> launch
["--help"] -> usage
["--recompile"] -> recompile True >> return ()
+ ["--restart"] -> sendRestart >> return ()
["--version"] -> putStrLn ("xmonad " ++ showVersion version)
#ifdef TESTING
("--run-tests":_) -> Properties.main
@@ -55,6 +56,7 @@ usage = do
" --help Print this message" :
" --version Print the version number" :
" --recompile Recompile your ~/.xmonad/xmonad.hs" :
+ " --restart Request a running xmonad process to restart" :
#ifdef TESTING
" --run-tests Run the test suite" :
#endif
@@ -83,3 +85,14 @@ buildLaunch = do
args <- getArgs
executeFile (dir ++ "/xmonad-"++arch++"-"++os) False args Nothing
return ()
+
+sendRestart :: IO ()
+sendRestart = do
+ dpy <- openDisplay ""
+ rw <- rootWindow dpy $ defaultScreen dpy
+ xmonad_restart <- internAtom dpy "XMONAD_RESTART" False
+ allocaXEvent $ \e -> do
+ setEventType e clientMessage
+ setClientMessageEvent e rw xmonad_restart 32 0 currentTime
+ sendEvent dpy rw False structureNotifyMask e
+ sync dpy False