jmjeong-devonthink.el

(defun org-export-to-devonthink (arg)
  "Call `org-export-to-devonthink` with output to a temporary buffer.
  No file is created."
  (interactive "P")
  (let (content)
	(org-export-as-html arg nil nil "*Org HTML Export*")
	(switch-to-buffer "*Org HTML Export*")
	(setq content (buffer-string))
	(kill-buffer "*Org HTML Export*")
	(setq content (replace-regexp-in-string (regexp-quote "\"") "\\\"" content t t))
	(do-applescript
	 (format "tell application id \"com.devon-technologies.thinkpro2\"
              create record with {name:get title of \"%s\", type:html, source:\"%s\", url:\"%s\"} in current group
              end tell
             " content  content (buffer-file-name)))
	)
  )