21 lines
423 B
Haskell
21 lines
423 B
Haskell
{-
|
|
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 }
|