aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad
diff options
context:
space:
mode:
Diffstat (limited to 'XMonad')
-rw-r--r--XMonad/Hooks/ManageDocks.hs7
1 files changed, 4 insertions, 3 deletions
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
-- |