twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 11:30:22 -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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
XMonad/Hooks/ManageDocks.hs
View File

@ -111,8 +111,8 @@ 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
-- new dock. -- new dock.