blob: 65e989f7b845e163f802789395f25b53dca01223 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
|
;; DEVONthink interaction
(require 'jao-applescript)
(defconst *jao-devon-sep* "####")
(defun jao-devon-path (dvp)
(car (split-string dvp *jao-devon-sep*)))
(defun jao-devon-url (dvp)
(cadr (split-string dvp *jao-devon-sep*)))
(defun jao-devon-name (dvp)
(car (last (split-string (jao-devon-path dvp) "/"))))
(defun jao-devon-make-dvp (path url) (concat path *jao-devon-sep* name))
(defun jao-devon-dvp-p (dvp)
(and (stringp dvp)
(string-match (concat "^/.+" *jao-devon-sep*) dvp)))
(defconst *jao-devon-sel-as*
(concat "set rs to the selection
set r to item 1 of rs
set rn to the name of r
set rl to the reference URL of r
set ru to the URL of r
\"[[\" & rl & \"" *jao-devon-sep*
"\" & ru & \"][\" & rn & \"]]\""))
(defun jao-devon-selection ()
(jao-as-tell-app "DEVONThink Pro" *jao-devon-sel-as*))
;; (defun jao-devon-open-as (path)
;; (concat "set r to get record at \"" path "\""
;; "\n open window for record r\n activate"))
(defun jao-devon-open (dvp)
(if (eq system-type 'darwin)
(let* ((path (jao-devon-path dvp))
(cmd (and path (format "open x-devonthink-item:%s" path))))
(when cmd (shell-command-to-string cmd)))
(browse-url (jao-devon-url dvp))))
(defun jao-devon-add-html-page (title url html)
(let ((as (format "tell application id \"com.devon-technologies.thinkpro2\" to create record with {name:%S, type:html, URL:%S, source:%S}"
title url html)))
(do-applescript as)))
(defun jao-devon-add-w3m-page ()
"Add current w3m page to devonthink."
(interactive)
(let ((title (w3m-current-title))
(url w3m-current-url))
(when url
(w3m-view-source)
(let ((html (buffer-substring-no-properties (point-min) (point-max))))
(jao-devon-add-html-page title url html))
(w3m-view-source))))
(with-eval-after-load "org"
(autoload 'jao-as-safari-doc "jao-applescript.el")
(defun jao-org-insert-devon-link ()
(interactive)
(insert (jao-devon-selection)))
(defun jao-org-insert-safari-link ()
(interactive)
(let ((ln (jao-as-safari-doc)))
(when ln (jao-org-insert-link (car ln) (cdr ln)))))
(org-add-link-type "x-devonthink-item" 'jao-devon-open 'identity)
(define-key org-mode-map "\C-cd" 'jao-org-insert-devon-link)
(define-key org-mode-map "\C-cs" 'jao-org-insert-safari-link))
(provide 'jao-devon)
|
