My_xmonad.hs

import XMonad
import qualified XMonad.StackSet as W
import qualified XMonad.Util.CustomKeys as C
import qualified Data.Map as M
import XMonad.Prompt
import XMonad.Prompt.RunOrRaise
import XMonad.Config.Desktop
import XMonad.Util.Run(spawnPipe)

myXmonadBar = "dzen2 -x 0 -y 0 -h '24' -w '640' -ta 'l' -fg '#000000' -bg '#000000'"
main :: IO ()
main = do
dzenLeftBar <- spawnPipe myXmonadBar
xmonad $ desktopConfig
       { borderWidth        = 0
       , terminal           = "urxvt -bg black -fg green -vb +sb"
       , workspaces         = ["shell", "web"] ++ map show [3..9]
       , normalBorderColor  = "#000000"
       , focusedBorderColor = "#000000"
       , keys = C.customKeys delkeys inskeys
       , manageHook         = manageHook defaultConfig <+> myManageHook
       }
    where
      delkeys :: XConfig l -> [(KeyMask, KeySym)]
      delkeys XConfig {modMask = modm} =
          [ (modm, xK_b) ]

      inskeys :: XConfig l -> [((KeyMask, KeySym), X ())]
      inskeys conf@(XConfig {modMask = modm}) =
          let font = "Monospace"
              color = "-fg green -bg black"
              urxvt = "urxvt -vb +sb" in
          [
           ((modm .|. shiftMask, xK_w), spawn "firefox"),
           ((modm .|. shiftMask, xK_e), spawn
            ("emacs --font \"" ++ font ++ "-14\" " ++ color)),
           ((modm .|. shiftMask, xK_u), spawn
            (urxvt ++ " " ++ color ++ " -fn \"xft:" ++ font ++
             ":pixelsize=20\"")),
           ((modm .|. shiftMask, xK_l), spawn "xlock -mode blank")
          ]
      myManageHook :: ManageHook
      myManageHook = composeAll [
                      className   =? "Firefox-bin" --> doF(W.shift "web")
                     ]