From 68e608ccff6a880650421e1fa99b60239ba42b59 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <spencerjanssen@gmail.com>
Date: Sat, 17 Jan 2009 04:49:59 +0100
Subject: Add --restart, a command line flag to cause a running xmonad process
 to restart

Ignore-this: 45c8c8aba7cc7391b95c7e3fb01e5bf9

darcs-hash:20090117034959-25a6b-794fb65d26a59f6ca34b16538c35dc3c266ced7d.gz
---
 XMonad/Main.hsc | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'XMonad/Main.hsc')

diff --git a/XMonad/Main.hsc b/XMonad/Main.hsc
index 99bc77f..27295ba 100644
--- a/XMonad/Main.hsc
+++ b/XMonad/Main.hsc
@@ -280,6 +280,12 @@ handle (ConfigureEvent {ev_window = w}) = whenX (isRoot w) rescreen
 handle PropertyEvent { ev_event_type = t, ev_atom = a }
     | t == propertyNotify && a == wM_NAME = userCodeDef () =<< asks (logHook . config)
 
+handle e@ClientMessageEvent { ev_message_type = mt } = do
+    a <- getAtom "XMONAD_RESTART"
+    if (mt == a)
+        then restart "xmonad" True
+        else broadcastMessage e
+
 handle e = broadcastMessage e -- trace (eventName e) -- ignoring
 
 
-- 
cgit v1.2.3