xmonad.hs

import XMonad
import XMonad.Layout
import qualified XMonad.StackSet as W
import XMonad.Util.EZConfig
import XMonad.Hooks.FadeInactive

import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks
import XMonad.Layout.LayoutHints

myWorkspaces =
	["firefox","thunderbird","pidgin","four","five","six",
	"seven","eight","nine","ten","eleven"]

myLogHook :: X ()
myLogHook = fadeInactiveLogHook fadeAmount
	where fadeAmount = 0xdddddddd

myLayout = avoidStruts (tiled ||| Mirror tiled ||| Full) ||| Full

main = xmonad $ defaultConfig
	{ workspaces     = myWorkspaces
		, modMask     = mod4Mask
		, borderWidth = 2
		, terminal    = "urxvt"
		, logHook     = myLogHook
		--, layoutHook  = myLayoutHook
	}
	`additionalKeysP`
	(
		[
			("M-<Space>", spawn "dmenu_run" )
			, ("M-n", sendMessage NextLayout )
			, ("M-g", spawn "gvim" )
		]
		++ -- important since ff. is a list itself, can't just put inside above list
		[
			(otherModMasks ++ "M-" ++ [key], action tag)
			| (tag, key)  <- zip myWorkspaces $
				"zuiop+"
				++ "67890"
				, (otherModMasks, action) <- [("", windows . W.view) -- was W.greedyView
				, ("S-", windows . W.shift)]
		]
	)