From feae6b11e5903efa02f899f7c7fb6ac2ec16b0a4 Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Sat, 22 Dec 2007 11:38:08 +0000 Subject: [PATCH] ManageDocks: ignore desktop windows also --- XMonad/Hooks/ManageDocks.hs | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/XMonad/Hooks/ManageDocks.hs b/XMonad/Hooks/ManageDocks.hs index d256402f..796d0389 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 -- |