My xmonad config

import XMonad
import XMonad.Hooks.ManageDocks
import System.IO
import XMonad.Util.Run(spawnPipe)
import XMonad.Util.EZConfig(additionalKeys)
import XMonad.Hooks.DynamicLog
import XMonad.Layout.NoBorders
import XMonad.Actions.CycleWS
import XMonad.Actions.DynamicWorkspaces
import XMonad.Prompt
import XMonad.Prompt.RunOrRaise
import XMonad.Prompt.Window
import XMonad.Layout.Tabbed
import XMonad.Prompt.Ssh
import XMonad.Prompt.Man
import XMonad.Layout.DecorationMadness

import qualified Data.Map as M

main = do
    xmproc <- spawnPipe "xmobar -x 0"
    xmpro2 <- spawnPipe "xmobar -x 1 ~/.xmobarrc2"
    xwall  <- spawnPipe "xpmroot ~/swahili.png"
--  gsetm  <- spawnPipe "gnome-settings-daemon"
    xmtray <- spawnPipe "trayer --edge top --align right --SetDockType true --SetPartialStrut true --expand true --width 4 --transparent true --alpha 0 --tint 0x000000 --height 16 &"
    thbird <- spawnPipe "thunderbird"
    pidgin <- spawnPipe "pidgin"
    boinc  <- spawnPipe "./BOINC/run_client"
    xmonad $ defaultConfig
        { manageHook = manageDocks <+> manageHook defaultConfig
        , layoutHook = avoidStruts $ smartBorders $ tabbed shrinkText myTabConfig ||| layoutHook defaultConfig
        , logHook = dynamicLogWithPP $ xmobarPP
            { ppOutput = \s -> do
                            hPutStrLn xmproc s
                            hPutStrLn xmpro2 s
            , ppTitle = xmobarColor "green" "" . shorten 150
            }
        , modMask = mod4Mask
        , terminal = "gnome-terminal"
        , keys = \c -> myKeys c `M.union` keys defaultConfig c
        }

myKeys conf@(XConfig {XMonad.modMask = modMask}) = M.fromList $
    [   ((modMask,                 xK_w), moveTo Next NonEmptyWS)
      , ((modMask,                 xK_q), moveTo Prev NonEmptyWS)
      , ((modMask                , xK_p), runOrRaisePrompt myXPConfig)
      , ((modMask .|. controlMask, xK_j), prevScreen)
      , ((modMask .|. controlMask, xK_k), nextScreen)
      , ((modMask .|. controlMask, xK_s), sshPrompt myXPConfig)
      , ((modMask .|. controlMask, xK_m), manPrompt myXPConfig)
      , ((modMask .|. shiftMask,   xK_g), windowPromptGoto myXPConfig)
      , ((modMask .|. shiftMask,   xK_b), windowPromptBring myXPConfig)
--      , ((modMask .|. shiftMask, xK_Down),  shiftToNext)
--      , ((modMask .|. shiftMask, xK_Up),    shiftToPrev)
--      , ((modMask,               xK_Right), nextScreen)
--      , ((modMask,               xK_Left),  prevScreen)
--      , ((modMask .|. shiftMask, xK_Right), shiftNextScreen)
--      , ((modMask .|. shiftMask, xK_Left),  shiftPrevScreen)
      , ((modMask,               xK_Tab),  toggleWS)
    ]

myTabConfig = defaultTheme { fontName = "xft:DejaVu Sans:size=9" }
myXPConfig = defaultXPConfig { font = "xft:DejaVu Sans:size=9" }