From 6d66d45d20541280fe686bd36ea0b889767fc474 Mon Sep 17 00:00:00 2001
From: Joachim Breitner <mail@joachim-breitner.de>
Date: Wed, 8 Oct 2008 21:56:43 +0200
Subject: Do not consider XMONAD_TIMER unknown

darcs-hash:20081008195643-23c07-f5258f84a5757fd41564ddaadc7d57af393017e1.gz
---
 XMonad/Hooks/EwmhDesktops.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'XMonad')

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
 
-- 
cgit v1.2.3