xmonad.hs

import XMonad
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks
import XMonad.Hooks.ManageHelpers
import XMonad.Hooks.SetWMName
import XMonad.Layout.NoBorders
import XMonad.Util.EZConfig (additionalKeys)
import Graphics.X11.ExtraTypes.XF86

myWorkspace = ["1:web","2","3","4","5","6"]

myManageHook = composeAll
    [ className =? "Firefox" --> doShift "1:web"
    , className =? "mplayer2" --> doFloat
    , isFullscreen --> doFullFloat
    ]

myConfig = defaultConfig
            { modMask = mod4Mask
            , terminal = "st -f monospace-14 -e tmux"
            , workspaces = myWorkspace
            , manageHook = myManageHook <+> manageHook defaultConfig
            , layoutHook = avoidStruts $ smartBorders $ layoutHook defaultConfig
            , logHook = dynamicLogWithPP xmobarPP
            , startupHook = setWMName "LG3D" <+> spawn "firefox"
            }
        `additionalKeys`
            [ ((0, xF86XK_AudioMute), spawn "amixer set Master toggle")
            , ((0, xF86XK_AudioLowerVolume), spawn "amixer set Master 1-")
            , ((0, xF86XK_AudioRaiseVolume), spawn "amixer set Master 1+")
            , ((0, xF86XK_MonBrightnessDown), spawn "xbacklight -dec 5")
            , ((0, xF86XK_MonBrightnessUp), spawn "xbacklight -inc 5")
            ]

main = xmonad =<< xmobar myConfig