emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
From: Dmitri Makarov <dmakarov@alumni.stanford.edu>
To: emacs-orgmode@gnu.org
Subject: [PATCH] org-mac-link.el: Handle links to/from Adobe Acrobat.
Date: Wed, 9 Sep 2015 12:42:06 +0200	[thread overview]
Message-ID: <CANLX=WiKvM4nMn5zEyNvhqzSj_-Kd3iiPUNDh8Jz_d8L4-Ci+A@mail.gmail.com> (raw)

[-- Attachment #1: Type: text/plain, Size: 114 bytes --]

This is my second attempt to submit a patch that enables grabbing
links from Adobe Acrobat Pro.

Regards,

Dmitri

[-- Attachment #2: patch.diff --]
[-- Type: text/plain, Size: 4034 bytes --]

From b9feb9b3ebd618d0fc8e82dc266d62e8252775ed Mon Sep 17 00:00:00 2001
From: Dmitri Makarov <dmakarov@alumni.stanford.edu>
Date: Wed, 24 Jun 2015 12:22:44 +0200
Subject: [PATCH] org-mac-link.el: Handle links to/from Adobe Acrobat.

* contrib/lisp/org-mac-link.el: Add new link type "acrobat" to grab
  links to documents open in Adobe Acrobat application.
---
 contrib/lisp/org-mac-link.el | 72 +++++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 71 insertions(+), 1 deletion(-)

diff --git a/contrib/lisp/org-mac-link.el b/contrib/lisp/org-mac-link.el
index c991dfa..119de8f 100644
--- a/contrib/lisp/org-mac-link.el
+++ b/contrib/lisp/org-mac-link.el
@@ -165,6 +165,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"
@@ -207,7 +213,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)
 
@@ -571,6 +578,69 @@ The links are of the form <link>::split::<name>."
   (interactive)
   (insert (org-mac-skim-get-page)))
 
+;; Handle links from Adobe Acrobat Pro.app
+;;
+;; Original code & idea by Christopher Suckling (org-mac-protocol)
+;;
+;; The URI format is path_to_pdf_file::page_number
+
+(org-add-link-type "acrobat" 'org-mac-acrobat-open)
+
+(defun org-mac-acrobat-open (uri)
+  "Visit page of pdf in Acrobat"
+  (let* ((page (when (string-match "::\\(.+\\)\\'" uri)
+                 (match-string 1 uri)))
+         (document (substring uri 0 (match-beginning 0))))
+    (do-applescript
+     (concat
+      "tell application \"Adobe Acrobat Pro\"\n"
+      "  activate\n"
+      "  set theDoc to \"" document "\"\n"
+      "  set thePage to " page "\n"
+      "  open theDoc\n"
+      "  tell PDF Window 1\n"
+      "    goto page thePage\n"
+      "  end tell\n"
+      "end tell"))))
+
+;; The applescript returns link in the format
+;; path_to_pdf_file::document_title::page_number::page_label
+
+(defun as-get-acrobat-page-link ()
+  (do-applescript
+   (concat
+    "tell application \"Adobe Acrobat Pro\"\n"
+    "  set theDoc to active doc\n"
+    "  set theWindow to (PDF Window 1 of theDoc)\n"
+    "  set thePath to (file alias of theDoc)\n"
+    "  set theTitle to (name of theWindow)\n"
+    "  set thePage to (page number of theWindow)\n"
+    "  set theLabel to (label text of (page thePage of theWindow))\n"
+    "end tell\n"
+    "set theResult to thePath & \"::\" & theTitle & \"::\" & thePage & \"::\" & theLabel\n"
+    "return theResult as string\n")))
+
+(defun org-mac-acrobat-get-page ()
+  (interactive)
+  (message "Applescript: Getting Acrobat page link...")
+  (let* ((descriptor (as-get-acrobat-page-link))
+         (components (split-string descriptor "::"))
+         (path (car components))
+         (title (nth 1 components))
+         (page (nth 2 components))
+         (label (nth 3 components))
+         (link (concat "acrobat:" path "::" page))
+         (description (concat title ", p." label))
+         (org-link))
+    (when (not (string= link ""))
+      (setq org-link (org-make-link-string link description)))
+    (kill-new org-link)
+    org-link))
+
+(defun org-mac-acrobat-insert-page ()
+  (interactive)
+  (insert (org-mac-acrobat-get-page)))
+
 \f
 ;; Handle links from Microsoft Outlook.app
 
-- 
2.5.1


             reply	other threads:[~2015-09-09 10:42 UTC|newest]

Thread overview: 9+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2015-09-09 10:42 Dmitri Makarov [this message]
2015-09-09 14:11 ` [PATCH] org-mac-link.el: Handle links to/from Adobe Acrobat Alan Schmitt
2015-09-09 15:59   ` Dmitri Makarov
2015-09-10  9:28     ` Alan Schmitt
2015-09-10  9:37       ` Dmitri Makarov
2015-09-10  9:57         ` Nicolas Goaziou
2015-09-10 10:26           ` Dmitri Makarov
2015-09-10 11:16             ` Alan Schmitt
  -- strict thread matches above, loose matches on Subject: below --
2015-06-24 11:43 Dmitri Makarov

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

  List information: https://www.orgmode.org/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to='CANLX=WiKvM4nMn5zEyNvhqzSj_-Kd3iiPUNDh8Jz_d8L4-Ci+A@mail.gmail.com' \
    --to=dmakarov@alumni.stanford.edu \
    --cc=emacs-orgmode@gnu.org \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).