;;; org-airmail.el - Support for links to Airmail 3 messages in Org

(require 'org)

(org-add-link-type "airmail" 'org-airmail-open)
(add-hook 'org-store-link-functions 'org-airmail-store-link)

(defun org-airmail-open (url)
  "Visit the Airmail message referenced by URL.
URL should be a vaid Airmail message url retrieved from Airmail with
'Copy Message Link'."
  (shell-command
   ;; Note: org strips "airmail:" from the link URL
   (concat "open -a '/Applications/Airmail 3.app' airmail:"
	   (shell-quote-argument url))))

(provide 'org-airmail)

;;; org-airmail.el ends here