«Work On» Alfred extension

workon.scpt

on alfred_script(q)
	tell application "iTerm"
		activate
	
		try
			set _term to last terminal
		on error
			set _term to (make new terminal)
		end try
	
		tell _term
			launch session "Default Session"
			tell the last session
				write text "workon " & q
			end tell
		end tell
	end tell

	open location "http://" & q & ":8000/"

	set homedir to (path to home folder) as string
	tell application "TextMate"
		open homedir & "Sites:" & q
	end tell
end alfred_script