From 450d8da4d8ae965a4a7d9903772403b68c376d8f Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Sun, 25 Oct 2020 01:26:02 +0000
Subject: jao-org-links: extending doc: to deal with pdfs and page numbers
---
sys/jao-devon.el | 17 +++++++++++++++++
1 file changed, 17 insertions(+)
(limited to 'sys')
diff --git a/sys/jao-devon.el b/sys/jao-devon.el
index 4d454ba..65e989f 100644
--- a/sys/jao-devon.el
+++ b/sys/jao-devon.el
@@ -55,4 +55,21 @@
(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)
--
cgit v1.2.3