(*

OopsieFocus

By Shawn Blanc
thesweetsetup.com

To use: Get your your global AppleScript invoker of choice and set this script to run with same hotkey you use to activate the Quick Entry pane in OmniFocus.
*)

on appIsRunning(GTDAppName)
	tell application "System Events"
		return (count of (application processes whose name is GTDAppName)) is not 0
	end tell
end appIsRunning

if appIsRunning("OmniFocus") then
	null
	
else
	tell application "OmniFocus"
		activate
		tell quick entry
			open
			activate
			make new inbox task
		end tell
		tell application "System Events" to keystroke tab
	end tell
end if