aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJoachim Breitner <mail@joachim-breitner.de>2008-10-08 21:56:43 +0200
committerJoachim Breitner <mail@joachim-breitner.de>2008-10-08 21:56:43 +0200
commit6d66d45d20541280fe686bd36ea0b889767fc474 (patch)
tree50fffabda1e1b56bdffc6292ba85f5edde8069c5
parent81b0ea5483e860091598d443df0d277a4663b3fc (diff)
downloadXMonadContrib-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 '')
-rw-r--r--XMonad/Hooks/EwmhDesktops.hs3
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