import XMonad
import XMonad.Actions.CycleWS
import XMonad.Actions.PhysicalScreens
import XMonad.Actions.Volume
import XMonad.Hooks.EwmhDesktops
import XMonad.Util.Dzen
import XMonad.Util.EZConfig
import Data.Default
mymod = mod4Mask
myKeys =
[ ((mymod, xK_p), spawn "@dmenu@")
, ((mymod, xK_i), lowerVolume 5 >>= alert)
, ((mymod, xK_o), raiseVolume 5 >>= alert)
]
++
[((mymod .|. mask, key), f sc)
| (key, sc) <- zip [xK_w, xK_e, xK_r] [0..]
, (f, mask) <- [(viewScreen def, 0), (sendToScreen def, shiftMask)]]
alert = dzenConfig (timeout 3 >=> onCurr xScreen) . show . round
main = xmonad $ ewmh $ def
{ terminal = "@terminal@"
, modMask = mymod
, borderWidth = 0
, focusFollowsMouse = False
} `additionalKeys` myKeys