Create a gist now

Instantly share code, notes, and snippets.

What would you like to do?
Sending Tasks to OmniFocus from Emacs <>
;; Based on omnifocus-capture.el by Ken Case with the following original comment:
;; To capture tasks from Emacs to OmniFocus using Control-C Control-O,
;; drop this script in your emacs load path and add lines like these to
;; your .emacs:
;; (autoload 'send-region-to-omnifocus "omnifocus-capture" "Send region to OmniFocus" t)
;; (global-set-key (kbd "C-c C-o") 'send-region-to-omnifocus)
;; The send-region-to-emacs function has been rewritten as follows:
;; * The task is sent directly to the Inbox rather than the quick entry window.
;; * It now uses `do-applescript' instead of writing a temporary script file.
;; * The first line of the region is used as the name of the task
;; * Subsequent lines of the region are used as the task note.
;; * "Added from Emacs on <current date>" is appended to the end of the note.
;; References:
;; 1. Sending text from Emacs to OmniFocus by Ken Case
;; 2. Omnifocus Quick Entry from Emacs by Tim Prouty
;; 3. omnifocus.el by Rob Bevan
;; See for details.
(defun applescript-quote-string (argument)
"Quote a string for passing as a string to AppleScript."
(if (or (not argument) (string-equal argument ""))
;; Quote using double quotes, but escape any existing quotes or
;; backslashes in the argument with backslashes.
(let ((result "")
(start 0)
(if (or (null (string-match "[^\"\\]" argument))
(< (match-end 0) (length argument)))
(while (string-match "[\"\\]" argument start)
(setq end (match-beginning 0)
result (concat result (substring argument start end)
"\\" (substring argument end (1+ end)))
start (1+ end))))
(concat "\"" result (substring argument start) "\"")))))
(defun send-region-to-omnifocus (beg end)
"Send the selected region to OmniFocus.
Use the first line of the region as the task name and the second
and subsequent lines as the task note."
(interactive "r")
(let* ((region (buffer-substring-no-properties beg end))
(match (string-match "^\\(.*\\)$" region))
(name (substring region (match-beginning 1) (match-end 1)))
(note (if (< (match-end 0) (length region))
(concat (substring region (+ (match-end 0) 1) nil) "\n\n")
(format "set theDate to current date
set taskName to %s
set taskNote to %s
set taskNote to (taskNote) & \"Added from Emacs on \" & (theDate as string)
tell front document of application \"OmniFocus\"
make new inbox task with properties {name:(taskName), note:(taskNote)}
end tell"
(applescript-quote-string name)
(applescript-quote-string note)))))

Why don't you upload this to MELPA as a package?

mrowe commented Jan 25, 2017

I made a small change so you are afforded a bit of feedback. I get nervous when some action I invoke interactively is completely silent. ;-)

diff --git a/emacs/site-lisp/omnifocus-capture.el b/emacs/site-lisp/omnifocus-capture.el
index bf70032..5d08c47 100644
--- a/emacs/site-lisp/omnifocus-capture.el
+++ b/emacs/site-lisp/omnifocus-capture.el
@@ -64,4 +64,5 @@ and subsequent lines as the task note."
                 make new inbox task with properties {name:(taskName), note:(taskNote)}
               end tell"
              (applescript-quote-string name)
-             (applescript-quote-string note)))))
+             (applescript-quote-string note)))
+    (message "Sent to OmniFocus: `%s'" name)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment