From 450d8da4d8ae965a4a7d9903772403b68c376d8f Mon Sep 17 00:00:00 2001 From: jao 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/jao-devon.el') 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