xmonad.hs

import XMonad

myWorkspaces = ["1","2","3","4","5","6","7","8","9"]

myStartupHook :: X ()
myStartupHook = do
	spawn "firefox"
	spawn "chromium-browser"
	spawn "nautilus . --no-desktop"
	spawn "mysql-workbench"
	spawn "gnome-system-monitor"
	spawn "sublime"
	spawn "spotify"
	spawn "google-chrome"
	spawn "gnome-terminal"

	
myManageHook = composeAll
	[ className =? "Firefox" --> doShift "1"
	, appName =? "chromium-browser" --> doShift "2"
	, appName =? "nautilus" --> doShift "3"
	, className =? "Mysql-workbench-bin" --> doShift "4"
	, appName =? "gnome-system-monitor" --> doShift "5"
	, appName =? "sublime" --> doShift "6"
	, appName =? "spotify" --> doShift "7"
	, appName =? "google-chrome" --> doShift "8"
	, className =? "Gnome-terminal" --> doShift "9"
	]

main = do
	xmonad $ defaultConfig 
		{ manageHook =myManageHook <+> manageHook defaultConfig
		, workspaces = myWorkspaces
		, startupHook = myStartupHook
		}
azhao@irdev31:~$