diff options
| -rw-r--r-- | XMonad/Main.hsc | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/XMonad/Main.hsc b/XMonad/Main.hsc index 7358a36..fd2bbdb 100644 --- a/XMonad/Main.hsc +++ b/XMonad/Main.hsc @@ -295,8 +295,9 @@ handle e@(ConfigureRequestEvent {ev_window = w}) = withDisplay $ \dpy -> do handle (ConfigureEvent {ev_window = w}) = whenX (isRoot w) rescreen -- property notify -handle PropertyEvent { ev_event_type = t, ev_atom = a } - | t == propertyNotify && a == wM_NAME = userCodeDef () =<< asks (logHook . config) +handle event@(PropertyEvent { ev_event_type = t, ev_atom = a }) + | t == propertyNotify && a == wM_NAME = asks (logHook . config) >>= userCodeDef () >> + broadcastMessage event handle e@ClientMessageEvent { ev_message_type = mt } = do a <- getAtom "XMONAD_RESTART" |