xmonad config unfinished

import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks
import XMonad.Hooks.EwmhDesktops
import XMonad.Util.Run(spawnPipe)
import System.IO

myManageHook = composeAll
        [ className =? "Gimp"      --> doFloat
        , className =? "Vncviewer" --> doFloat
        , className =? "Open Cubic Player" --> doFloat
        ]

main = do
        xmproc <- spawnPipe "/usr/bin/xmobar"
        xmonad $ defaultConfig
                { manageHook = manageDocks <+> myManageHook <+> manageHook defaultConfig
                , layoutHook = avoidStruts $ layoutHook defaultConfig
                , logHook = dynamicLogWithPP xmobarPP
                        { ppOutput = hPutStrLn xmproc
                        , ppTitle = xmobarColor "green" "" . shorten 50
                        }
                }