xmonad.hs

import XMonad
import qualified XMonad.StackSet as W
import XMonad.Actions.CycleWS
import XMonad.Config.Gnome
import XMonad.Layout.IM
import XMonad.Layout.Fullscreen
import XMonad.Layout.NoBorders
import XMonad.Hooks.ManageHelpers
import XMonad.Hooks.SetWMName
import XMonad.Hooks.ICCCMFocus
import XMonad.Util.EZConfig
import XMonad.Util.Run

makeMyConfig baseConfig = newConfig `additionalKeysP` myKeys
	where
	newConfig = baseConfig
		{ modMask = mod4Mask
		, terminal = "roxterm"
		, startupHook = myStartupHook 
			<+> startupHook baseConfig
		, handleEventHook = fullscreenEventHook 
			<+> handleEventHook baseConfig
		, manageHook = fullscreenManageHook 
			<+> manageHook baseConfig
		, logHook = takeTopFocus 
			<+> logHook baseConfig
		, layoutHook = fullscreenFull . smartBorders $ layoutHook baseConfig
		}

	myKeys = 
		[ ("M-<Return>", safeSpawnProg (terminal newConfig))
		, ("M-S-<Return>", safeSpawn (terminal newConfig) ["-e", "ssh", "sd1e"])
		, ("M-r", safeSpawnProg "gmrun")
		, ("M-<Left>", prevWS)
		, ("M-<Right>", nextWS)
		, ("M--", sendMessage Shrink)
		, ("M-=", sendMessage Expand)
		]

	myStartupHook = do
		safeSpawn "xcompmgr" ["-n"]
		setWMName "compiz"


main = xmonad (makeMyConfig gnomeConfig)