From ada3e9afbcadb6020b8e4949b49afc1243f8278d Mon Sep 17 00:00:00 2001 From: Dmitri Makarov
Date: Wed, 9 Sep 2015 17:24:42 +0200 Subject: [PATCH] org-mac-link.el: Handle links to/from Adobe Acrobat Add new link type "acrobat" to grab links to documents open in Adobe Acrobat application. * contrib/lisp/org-mac-link.el (org-mac-acrobat-open): Open Adobe Acrobat document pointed to by a link. * contrib/lisp/org-mac-link.el (org-mac-as-get-acrobat-page-link): Invoke applescript to generate a link to an open and active Adobe Acrobat document. * contrib/lisp/org-mac-link.el (org-mac-acrobat-get-page, org-mac-acrobat-insert-page): methods used when an Adobe Acrobat link grab request is issued or a link is clicked in an org document. * contrib/lisp/org-mac-link.el (org-mac-grab-Acrobat-app-p): predicate that enables grabbing Adobe Acrobat links. --- contrib/lisp/org-mac-link.el | 60 +++++++++++++++++++++++++++++++++++++++++++- 1 file changed, 59 insertions(+), 1 deletion(-) diff --git a/contrib/lisp/org-mac-link.el b/contrib/lisp/org-mac-link.el index 5e0f891..01556f7 100644 --- a/contrib/lisp/org-mac-link.el +++ b/contrib/lisp/org-mac-link.el @@ -169,6 +169,12 @@ :group 'org-mac-link :type 'boolean) +(defcustom org-mac-grab-Acrobat-app-p t + "Add menu option [A]crobat to grab page links from Acrobat.app." + :tag "Grab Acrobat.app page links" + :group 'org-mac-link + :type 'boolean) + (defgroup org-mac-flagged-mail nil "Options foring linking to flagged Mail.app messages." :tag "Org Mail.app" @@ -211,7 +217,8 @@ When done, go grab the link, and insert it at point." ("v" "imperator" org-mac-vimperator-insert-frontmost-url ,org-mac-grab-Firefox+Vimperator-p) ("c" "hrome" org-mac-chrome-insert-frontmost-url ,org-mac-grab-Chrome-app-p) ("t" "ogether" org-mac-together-insert-selected ,org-mac-grab-Together-app-p) - ("S" "kim" org-mac-skim-insert-page ,org-mac-grab-Skim-app-p))) + ("S" "kim" org-mac-skim-insert-page ,org-mac-grab-Skim-app-p) + ("A" "crobat" org-mac-acrobat-insert-page ,org-mac-grab-Acrobat-app-p))) (menu-string (make-string 0 ?x)) input) @@ -543,6 +550,57 @@ The links are of the form ::split::