hs

import XMonad
import Data.Map    (fromList)
import Data.Monoid (mappend)
import qualified XMonad.StackSet as W
import XMonad.Hooks.ManageHelpers



main = do
    xmonad $ defaultConfig
      { terminal    = "xterm"
      , modMask     = mod4Mask
      , borderWidth = 0
      , keys        = keys defaultConfig `mappend`
        \c -> fromList [
        ((0, xK_F1), spawn "dmenu_run"),
        ((0, 0x1008ff11), spawn "amixer set -q Master 5%-"),
        ((0, 0x1008ff13), spawn "amixer set -q Master 5%+"),
        ((0, 0x1008ff2a), spawn "sudo /usr/sbin/pm-suspend")
]
}