twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-02 05:01:51 -07:00
Code Issues Packages Projects Releases Wiki Activity

ManageDocks: ignore desktop windows also

Browse Source
This commit is contained in:
Spencer Janssen
2007-12-22 11:38:08 +00:00
parent 0cca07363d
commit feae6b11e5
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
XMonad/Hooks/ManageDocks.hs
View File

@@ -56,14 +56,15 @@ manageDocks :: ManageHook
manageDocks = checkDock --> doIgnore 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 :: Query Bool
checkDock = ask >>= \w -> liftX $ do checkDock = ask >>= \w -> liftX $ do
a <- getAtom "_NET_WM_WINDOW_TYPE" 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 mbr <- getProp a w
case mbr of case mbr of
Just [r] -> return (fromIntegral r == d) Just [r] -> return $ elem (fromIntegral r) [dock, desk]
_ -> return False _ -> return False
-- | -- |