twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-07-26 09:41:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

accept more windows as docks

Browse Source
This commit is contained in:
Daniel Wagner
2012-08-23 12:41:53 +00:00
parent a7c2c023fb
commit 9d34e848d9
1 changed files with 2 additions and 2 deletions

2
XMonad/Hooks/ManageDocks.hs

@@ -111,7 +111,7 @@ checkDock = ask >>= \w -> liftX $ do
desk <- getAtom "_NET_WM_WINDOW_TYPE_DESKTOP" desk <- getAtom "_NET_WM_WINDOW_TYPE_DESKTOP"
mbr <- getProp32s "_NET_WM_WINDOW_TYPE" w mbr <- getProp32s "_NET_WM_WINDOW_TYPE" w
case mbr of case mbr of
Just [r] -> return $ elem (fromIntegral r) [dock, desk] Just rs -> return $ any (`elem` [dock,desk]) (map fromIntegral rs)
_ -> return False _ -> return False
-- | Whenever a new dock appears, refresh the layout immediately to avoid the -- | Whenever a new dock appears, refresh the layout immediately to avoid the