{-
import XMonad
import XMonad.Config.Gnome

main = xmonad gnomeConfig 
    manageHook = composeAll . concat $ [
      [ className =? "Do" --> doIgnore ]
    ]
  }
  -}

import XMonad
import XMonad.Config.Gnome
import XMonad.ManageHook

myManageHook :: [ManageHook]
myManageHook = 
    [ resource  =? "Do"   --> doFloat ]

main = xmonad gnomeConfig
    { manageHook = manageHook gnomeConfig <+> composeAll myManageHook }