handleEvent :: Event -> X All
handleEvent e@ClientMessageEvent {ev_message_type = mt} = do
  a <- getAtom "D12_XMONAD_RESTART"
  if mt == a
    then restart "d12-xmonad" True >> pure (All False)
    else broadcastMessage e >> pure (All True)
handleEvent :: Event -> X All
handleEvent e@ClientMessageEvent {ev_message_type = mt} = do
  a <- getAtom "D12_XMONAD_RESTART"
  if mt == a
    then restart "d12-xmonad" True >> pure (All False)
    else broadcastMessage e >> pure (All True)
handleEvent e@ClientMessageEvent {ev_message_type = mt} = do
  a <- getAtom "D12_XMONAD_RESTART"
  if mt == a
    then restart "d12-xmonad" True >> pure (All False)
    else broadcastMessage e >> pure (All True)