xmonad.hs

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

main = do
  xmonad $ defaultConfig {
         manageHook = manageDocks <+> manageHook defaultConfig
         , layoutHook = avoidStruts  $  layoutHook defaultConfig
         , terminal = "urxvt" 
         , modMask = mod4Mask
         , focusedBorderColor = "#6C71C4"
         , borderWidth = 0
         }
         `additionalKeys`
         [ ((mod4Mask, xK_m         ), spawn "echo 'Hi, mom!' | dzen2 -p 4")
         , ((0, 0x1008ff12         ), spawn "amixer -q sset Master toggle")
         , ((0, 0x1008ff13         ), spawn "amixer -q sset Master 10%+")
         , ((0, 0x1008ff11          ), spawn "amixer -q sset Master 10%-")
         ]