xmonad.hs

myConfig p =  def {
  manageHook = myManageHook <+> namedScratchpadManageHook scratchpads <+> manageDocks
  ,logHook = fadeWindowsLogHook myFadeHook <+> dynamicLogWithPP xmobarPP {             
    ppOutput = hPutStrLn p
   }  <+> ewmhDesktopsLogHook
  ,handleEventHook = fadeWindowsEventHook
  ,layoutHook = myLayout
  ,startupHook = myStartUpHook
  ,workspaces= myWorkSpaces
  ,modMask = mod4Mask
  ,focusFollowsMouse = False
  ,terminal =  myTerminal
}

main :: IO ()
main =  do
  xm <- spawnPipe "xmobar"
  xmonad $ myConfig xm
             `additionalKeysP` myKeys