diff options
Diffstat (limited to 'XMonad/Main.hsc')
| -rw-r--r-- | XMonad/Main.hsc | 6 |
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 |