diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-12-22 12:38:08 +0100 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-12-22 12:38:08 +0100 |
| commit | f759296012fe2c8c933d6e41e3b12c207f922a5d (patch) | |
| tree | db65150ceabe3b54ee39bb2dbdd34be3d69ea5b5 /XMonad/Hooks | |
| parent | aef390f3dde7d126a9946d8f9a0120d8aa1a71a5 (diff) | |
| download | XMonadContrib-f759296012fe2c8c933d6e41e3b12c207f922a5d.tar.gz XMonadContrib-f759296012fe2c8c933d6e41e3b12c207f922a5d.tar.xz XMonadContrib-f759296012fe2c8c933d6e41e3b12c207f922a5d.zip | |
ManageDocks: ignore desktop windows also
darcs-hash:20071222113808-a5988-475ba24c43ec66b49cc621f029bf82a9800a478a.gz
Diffstat (limited to 'XMonad/Hooks')
| -rw-r--r-- | XMonad/Hooks/ManageDocks.hs | 7 |
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 -- | |