make OF action out of current emacs buffer

[jklymak]

OK, Thanks to Curt and some of the code on this board, I hacked together a quick emacs script to note the current emacs buffer and make a new action. Comments welcome. No doubt my elisp is horrible...


(defun sendOmni ()
(interactive)
(let ((fname (buffer-file-name (current-buffer))))
(do-applescript (concat "tell front document of application \"OmniFocus\"
set aTask to (make new inbox task with properties {name:\"From Emacs "
(buffer-name (current-buffer)) "\", note:\"file:///" fname " \" })
tell note of aTask
make new file attachment with properties {file name:\"" fname "\"}
end tell
end tell"))
))
;; I use F3 for omnifocus clipping...
(global-set-key [f3] 'sendOmni)

[curt.clifton]

Nice work. Fun to see some eLisp on the forum!

[jklymak]

Thanks Curt. Though I have to say the experience of mashing together these two languages, perverse in such diametrically opposite ways, has been exhausting!

[tprouty]

I found your example a really useful jumping off point. I wanted to do something a bit different, which was be able to select a region in emacs and have it pop up in the OmniFocus Quick Entry window to add a new task. More details about why I wanted to do that can be found here: http://timprouty-tech.blogspot.com/2009/08/omnifocus-quick-entry-from-emacs.html

Here's the code:

(defun omniQuickEntry (beg end)
(interactive "r")
(do-applescript (concat
"tell front document of application \"OmniFocus\"
tell quick entry
make new inbox task with properties {name:\""
(buffer-substring beg end) "\"}
activate
select {inbox task 1}
end tell
end tell")
))

(global-set-key "\C-c\C-o" 'omniQuickEntry)