aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad
diff options
context:
space:
mode:
Diffstat (limited to 'XMonad')
-rw-r--r--XMonad/Main.hsc6
1 files changed, 6 insertions, 0 deletions
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