diff options
| author | Daniel Wagner <daniel@wagner-home.com> | 2012-08-23 14:41:53 +0200 |
|---|---|---|
| committer | Daniel Wagner <daniel@wagner-home.com> | 2012-08-23 14:41:53 +0200 |
| commit | a1befbeeababc6e25d8901b222d2c614c7544534 (patch) | |
| tree | 0db258f1e3bd672f47bac109d767c3d1053c1eee /XMonad/Hooks/ManageDocks.hs | |
| parent | 60390b11c08a3c5b3db5b36c9e6c7927ddbb54f1 (diff) | |
| download | XMonadContrib-a1befbeeababc6e25d8901b222d2c614c7544534.tar.gz XMonadContrib-a1befbeeababc6e25d8901b222d2c614c7544534.tar.xz XMonadContrib-a1befbeeababc6e25d8901b222d2c614c7544534.zip | |
accept more windows as docks
Ignore-this: 21d9b406c7e39cca2cc60331aab04873
darcs-hash:20120823124153-76d51-072eab9b52edc18a47d943319875586ae3c2b088.gz
Diffstat (limited to 'XMonad/Hooks/ManageDocks.hs')
| -rw-r--r-- | XMonad/Hooks/ManageDocks.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/XMonad/Hooks/ManageDocks.hs b/XMonad/Hooks/ManageDocks.hs index 0e905c0..901afa8 100644 --- a/XMonad/Hooks/ManageDocks.hs +++ b/XMonad/Hooks/ManageDocks.hs @@ -111,8 +111,8 @@ checkDock = ask >>= \w -> liftX $ do desk <- getAtom "_NET_WM_WINDOW_TYPE_DESKTOP" mbr <- getProp32s "_NET_WM_WINDOW_TYPE" w case mbr of - Just [r] -> return $ elem (fromIntegral r) [dock, desk] - _ -> return False + Just rs -> return $ any (`elem` [dock,desk]) (map fromIntegral rs) + _ -> return False -- | Whenever a new dock appears, refresh the layout immediately to avoid the -- new dock. |