Send current Safari tab to OmniFocus

send-safari-to-omnifocus.scpt

on run {input, parameters}
	
	tell application "Safari"
		set theUrl to (URL of current tab of window 1)
		set theName to (name of current tab of window 1)
		
		tell application "OmniFocus"
			set theTask to theName
			set theNote to theUrl
			
			tell quick entry
				set NewTask to make new inbox task with properties {name:theTask, note:theNote}
				select {NewTask}
				open
			end tell
			
			tell application "System Events"
				keystroke tab
			end tell
		end tell
	end tell
end run