Skip to content

Instantly share code, notes, and snippets.

@gfontenot
Created June 28, 2011 14:16
Show Gist options
  • Save gfontenot/1051219 to your computer and use it in GitHub Desktop.
Save gfontenot/1051219 to your computer and use it in GitHub Desktop.
Modified version of Shawn Blanc's OopsieFocus script
(*
OopsieFocus
A script to launch OmniFocus and activate the Quick Entry Panel
By Shawn Blanc (http://shawnblanc.net)
May 20, 2011
With code used from the Toggle Twitter script by Red Sweater Software:
http://www.red-sweater.com/blog/1646/toggle-twitter
Works great with FastScripts or Keyboard Maestro:
http://www.red-sweater.com/fastscripts/
http://www.keyboardmaestro.com/main/
How it works:
Set this script to run using the same keyboard shortut that you use to launch the Quick
Entry Panel in OmniFocus. If you ever try to activate the Quick Entry Panel but
OmniFocus happens to not be running, then this script will launch OmniFocus and bring
up the Quick Entry Panel for you.
*)
-- Is OmniFocus running?
on appIsRunning(GTDAppName)
tell application "System Events"
return (count of (application processes whose name is GTDAppName)) is not 0
end tell
end AppIsRunning
-- If OmniFocus is running, do nothing.
-- If OmniFocus is not running, launch it and bring up the Quick Entry Panel.
if appIsRunning("OmniFocus") then
null
else
tell application "OmniFocus"
activate
tell quick entry
open
make new inbox task
tell application "System Events" to keystroke tab
end tell
end tell
end if
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment