diff options
| author | Joachim Breitner <mail@joachim-breitner.de> | 2008-10-08 21:56:43 +0200 |
|---|---|---|
| committer | Joachim Breitner <mail@joachim-breitner.de> | 2008-10-08 21:56:43 +0200 |
| commit | 6d66d45d20541280fe686bd36ea0b889767fc474 (patch) | |
| tree | 50fffabda1e1b56bdffc6292ba85f5edde8069c5 /XMonad/Hooks/EwmhDesktops.hs | |
| parent | 81b0ea5483e860091598d443df0d277a4663b3fc (diff) | |
| download | XMonadContrib-6d66d45d20541280fe686bd36ea0b889767fc474.tar.gz XMonadContrib-6d66d45d20541280fe686bd36ea0b889767fc474.tar.xz XMonadContrib-6d66d45d20541280fe686bd36ea0b889767fc474.zip | |
Do not consider XMONAD_TIMER unknown
darcs-hash:20081008195643-23c07-f5258f84a5757fd41564ddaadc7d57af393017e1.gz
Diffstat (limited to 'XMonad/Hooks/EwmhDesktops.hs')
| -rw-r--r-- | XMonad/Hooks/EwmhDesktops.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/XMonad/Hooks/EwmhDesktops.hs b/XMonad/Hooks/EwmhDesktops.hs index f107c13..40415c6 100644 --- a/XMonad/Hooks/EwmhDesktops.hs +++ b/XMonad/Hooks/EwmhDesktops.hs @@ -138,6 +138,7 @@ handle ClientMessageEvent { a_d <- getAtom "_NET_WM_DESKTOP" a_aw <- getAtom "_NET_ACTIVE_WINDOW" a_cw <- getAtom "_NET_CLOSE_WINDOW" + a_ignore <- mapM getAtom ["XMONAD_TIMER"] if mt == a_cd then do let n = fromIntegral (head d) if 0 <= n && n < length ws then @@ -152,6 +153,8 @@ handle ClientMessageEvent { windows $ W.focusWindow w else if mt == a_cw then do killWindow w + else if mt `elem` a_ignore then do + return () else trace $ "Unknown ClientMessageEvent " ++ show mt handle _ = undefined -- does not happen, as otherwise ewmhDesktopsHook would not match |