From f759296012fe2c8c933d6e41e3b12c207f922a5d Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Sat, 22 Dec 2007 12:38:08 +0100
Subject: ManageDocks: ignore desktop windows also

darcs-hash:20071222113808-a5988-475ba24c43ec66b49cc621f029bf82a9800a478a.gz
---
 XMonad/Hooks/ManageDocks.hs | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'XMonad/Hooks/ManageDocks.hs')

diff --git a/XMonad/Hooks/ManageDocks.hs b/XMonad/Hooks/ManageDocks.hs
index d256402..796d038 100644
--- a/XMonad/Hooks/ManageDocks.hs
+++ b/XMonad/Hooks/ManageDocks.hs
@@ -56,14 +56,15 @@ manageDocks :: ManageHook
 manageDocks = checkDock --> doIgnore
 
 -- |
--- Checks if a window is a DOCK window
+-- Checks if a window is a DOCK or DESKTOP window
 checkDock :: Query Bool
 checkDock = ask >>= \w -> liftX $ do
     a <- getAtom "_NET_WM_WINDOW_TYPE"
-    d <- getAtom "_NET_WM_WINDOW_TYPE_DOCK"
+    dock <- getAtom "_NET_WM_WINDOW_TYPE_DOCK"
+    desk <- getAtom "_NET_WM_WINDOW_TYPE_DESKTOP"
     mbr <- getProp a w
     case mbr of
-        Just [r] -> return (fromIntegral r == d)
+        Just [r] -> return $ elem (fromIntegral r) [dock, desk]
         _        -> return False
 
 -- |
-- 
cgit v1.2.3