xmonad lapromitux

xmonad.hs

import XMonad
import XMonad.Hooks.InsertPosition
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks
import XMonad.Hooks.FadeInactive
import XMonad.Util.Run
import XMonad.Util.EZConfig
import System.IO

main = do
xmproc <- spawnPipe "xmobar"
xmonad $ defaultConfig
	{ modMask = mod4Mask
	, manageHook = manageDocks <+> insertPosition End Newer -- make sure to include myManageHook definition from above
		<+> manageHook defaultConfig
	, layoutHook = avoidStruts $ layoutHook defaultConfig
	, logHook = fadeInactiveLogHook 0.8 $ dynamicLogWithPP $ xmobarPP
		{ ppOutput = hPutStrLn xmproc
		, ppTitle = xmobarColor "green" "" . shorten 50
		}
	, focusFollowsMouse = False
	}
	`additionalKeysP`
	[ ("M-x f", spawn "firefox")
	, ("M-x l", spawn "slock")
	, ("M-x s", spawn "st2")
	, ("<F12>", spawn "konsole")
	, ("<Print>", spawn "ksnapshot")
	, ("M-<F4>", kill)
	]