omnifocus_quick_entry.el

(defun clean-applescript-input (s)
  (replace-regexp-in-string
   (regexp-quote "\"") "\\\\\""
   (replace-regexp-in-string
    (regexp-quote "\\") "\\\\\\\\" s)
   )
  )

(defun omni-quick-entry (beg end)
  (interactive "r")
  (let ((s (split-string (buffer-substring beg end) "\n")))
    (do-applescript (concat
                     "tell front document of application \"OmniFocus\"
			tell quick entry
			    make new inbox task with properties {name:\"" (clean-applescript-input (first s)) "\","
                                              "note:\"" (clean-applescript-input (mapconcat 'identity (rest s) "\n")) "\"}
          open
			    select {inbox task 1}
			end tell
		    end tell")
	)))


;; I use C-s-w for omnifocus clipping...
(global-set-key (quote [C-s-268632087]) (quote omni-quick-entry))