My xmonad configuration

gistfile1.hs

import XMonad
import XMonad.Actions.CycleWS      -- cycle thru WS', toggle last WS
import XMonad.Hooks.DynamicLog     -- statusbar 
import XMonad.Hooks.ManageDocks    -- dock/tray mgmt
import XMonad.Util.EZConfig        -- append key/mouse bindings
import XMonad.Util.Run(spawnPipe)  -- spawnPipe and hPutStrLn
import System.IO
import XMonad.Actions.SpawnOn        
  
lowerVolume    = "<XF86AudioLowerVolume>"
lowerVolumeCMD = "amixer -c 0 set Master 1-"
raiseVolume    = "<XF86AudioRaiseVolume>"
raiseVolumeCMD = "amixer -c 0 set Master 1+ unmute"
muteVolume     = "<XF86AudioMute>"
muteVolumeCMD  = "amixer -c 0 set Master 1- mute"

myLogHook dest = dynamicLogWithPP defaultPP { ppOutput = hPutStrLn dest
                                            ,ppVisible = wrap "(" ")"
                                            }                     

myManageHook = composeAll
   [ className =? "Firefox"       --> doShift "2"
   , className =? "Opera"         --> doShift "3"
   , className =? "Thunderbird"   --> doShift "4"
   , className =? "Remmina"       --> doShift "5"
   , className =? "Xchat"         --> doShift "6"
   ]

myKeys = [ ("M-b"        , sendMessage ToggleStruts           ) -- toggle the status bar gap
         , ("M-<Right>"  , nextWS                             ) -- go to next workspace
         , ("M-<Left>"   , prevWS                             ) -- go to prev workspace
         , ("M-p"        , spawn "gmrun"                      ) -- app launcher
         , ("M-r"        , spawn "xmonad --restart"           ) -- restart xmonad w/o recompiling
         , ("M-f"        , spawn "firefox"                    ) -- launch firefox
         , ("M-g"        , spawn "google-chrome"              ) -- launch chrome
         , ("M-e"        , spawn "thunderbird"                ) -- launch thunderbird
         , ("M-v"        , spawn "remmina"                    ) -- launch remmina
         , ("M-x"        , spawn "xchat"                      ) -- launch xchat
         , ("M-o"        , spawn "opera"                      ) -- launch opera
         , ("C-M-x"      , spawn "xlock"                      ) -- lockdown                                                               
         , ("M-s"        , spawn "sudo /usr/sbin/pm-suspend"  ) -- suspend
         , ("C-M-h"      , spawn "sudo /usr/sbin/pm-hibernate") -- hibernate                                  
         , ("C-M-r"      , spawn "sudo /sbin/shutdown -r now" ) -- reboot
         , ("C-M-s"      , spawn "sudo /sbin/shutdown -h now" ) -- halt
         , ("<Print>"    , spawn "ksnapshot"                  ) -- screenshot
         , (raiseVolume  , spawn raiseVolumeCMD               ) -- raise volume
         , (lowerVolume  , spawn lowerVolumeCMD               ) -- lower volume
         , (muteVolume   , spawn muteVolumeCMD                ) -- mute volume
         ]

myConfig xmproc = defaultConfig                                                  
        { manageHook = myManageHook                                
                       <+> manageDocks                        
                       <+> manageHook defaultConfig          
        , layoutHook = avoidStruts  $  layoutHook defaultConfig
        , terminal = "konsole"  
        , focusFollowsMouse = True                          
        , logHook = myLogHook xmproc                      
        , modMask = mod4Mask     -- Rebind Mod to the Windows key
        , startupHook = return () >> checkKeymap (myConfig xmproc) myKeys
        }     
        `additionalKeysP` myKeys

main = do
    xmproc <- spawnPipe "/usr/bin/xmobar /home/thomas/.xmobarrc"
    xmonad $ myConfig xmproc