[xmonad] Issue 450 in xmonad: ManageDocks should check for multi window types in _NET_WM_WINDOW_TYPE

[codesite-noreply at google.com]

Comment #1 on issue 450 by max.thou... at gmail.com: ManageDocks should check  
for multi window types in _NET_WM_WINDOW_TYPE
http://code.google.com/p/xmonad/issues/detail?id=450

Here's a simple patch which works for unity-2d-panel (from ubuntu)
It's probably not the best way to do it, I'm really new to haskell

diff -rN -u old-XMonadContrib/XMonad/Hooks/ManageDocks.hs  
new-XMonadContrib/XMonad/Hooks/ManageDocks.hs
--- old-XMonadContrib/XMonad/Hooks/ManageDocks.hs	2012-02-07  
11:58:41.000000000 +0100
+++ new-XMonadContrib/XMonad/Hooks/ManageDocks.hs	2012-02-07  
11:58:41.000000000 +0100
@@ -111,7 +111,7 @@
      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]
+        Just l   -> return $ any (\x -> elem (fromIntegral x) [dock,  
desk]) l
          _        -> return False

  -- | Whenever a new dock appears, refresh the layout immediately to avoid  
the