Serve a folder with Python SimpleHTTPServer

Open in SimpleHTTPServer.applescript

on run
    tell application "Finder"
		if selection is {} then
			set finderSelection to quoted form of POSIX path of (folder of the front window as string)
		else
			set sel to (first item of (selection as list))
			if class of sel is folder then
				set finderSelection to quoted form of POSIX path of (sel as string)
			else
				set finderSelection to quoted form of POSIX path of ((container of sel) as string)
			end if
		end if
	end tell
	
	tell application "Terminal"
		activate
		do script "cd " & finderSelection & "; python -m SimpleHTTPServer 8080;"
	end tell
end run