xmonad simple config

.stalonetrayrc

icon_gravity E
geometry 5x1-0+0
max_geometry 5x1-0+0
background "#000000"
icon_size 20
kludges force_icons_size
skip_taskbar

.xmobarrc

Config { font = "xft:Ubuntu Mono:pixelsize=18:Bold"
       , bgColor = "black"
       , fgColor = "grey"
       , position = Top
       , commands = [ Run Cpu [] 10
                    , Run DiskU [("sda1", "ssd: <usedp>%")] [] 20
                    , Run Date "%a %m/%d %X" "date" 10
                    , Run StdinReader
                    ]
       , sepChar = "%"
       , alignSep = "}{"
       , template = " %StdinReader% }{ %cpu% | %disku% | %date% "
       }

xmonad.hs

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

main = do
  xmproc <- spawnPipe "xmobar"

  xmonad $ defaultConfig
    { manageHook = manageDocks <+> manageHook defaultConfig
    , layoutHook = avoidStruts  $  layoutHook defaultConfig
    , logHook = dynamicLogWithPP xmobarPP
                  { ppOutput = hPutStrLn xmproc
                  , ppTitle = xmobarColor "#cccccc" "" . shorten 80
                  , ppCurrent = xmobarColor "#e6db74" "" . wrap "[" "]"
                  }
    , modMask = mod4Mask
    , workspaces = ["term", "web"] ++ map show [3..9]
    , focusedBorderColor = "#0077bb"
    , normalBorderColor = "#49483e"
    , borderWidth = 2
    -- , terminal = "urxvt"
    }
    `additionalKeys`
    [
      ((mod4Mask, xK_p), spawn "dmenu_run -fn -*-fixed-*-*-*-*-18-*-*-*-*-*-*-*")
    ]