Re: [O] [PATCH] Add DEVONthink Pro to Org Mac Link

[Bastien]

Anthony Lander  writes:

> And thank you Bastien for taking care of applying the patch.

You're welcome!

-- 
 Bastien

Re: [O] [PATCH] Add DEVONthink Pro to Org Mac Link

[Anthony Lander]

Hi Mike,

Thank you for extending org-mac-link. Much appreciated!

And thank you Bastien for taking care of applying the patch.

Have a good weekend,

 -Anthony


On Sat, Jun 14, 2014 at 8:48 AM, Bastien  wrote:

> Hi Mike,
>
> Mike-Personal  writes:
>
> > I have attached the patch to this email.
>
> Applied, thanks.  I updated the changelog:
> http://orgmode.org/cgit.cgi/org-mode.git/commit/?id=c57ecf26
>
> --
>  Bastien
>
>

Re: [O] [PATCH] Add DEVONthink Pro to Org Mac Link

[Bastien]

Hi Mike,

Mike-Personal  writes:

> I have attached the patch to this email. 

Applied, thanks.  I updated the changelog:
http://orgmode.org/cgit.cgi/org-mode.git/commit/?id=c57ecf26

-- 
 Bastien

Re: [O] [PATCH] Add DEVONthink Pro to Org Mac Link

[Mike-Personal]

On June 14, 2014 at 2:47:26 AM, Bastien (b...@gnu.org(mailto:b...@gnu.org)) 
wrote:

> Hi Mike,
>  
> Mike McLean writes:
>  
> > This patch adds support for DEVONthink Pro Office
> >  
> > to Org Mac Links. This likely works for all versions of DEVONthink, but
> > that is not tested.
>  
> thanks -- the patch got mangled, can you resend it as an attachment or
> not use HTML emails?

That’s what I get for 12:30 submissions 😃 

I have attached the patch to this email. 

Mike 




Add-DEVONthink-Pro-to-Org-Mac-Link.patch
Description: Binary data

Re: [O] [PATCH] Add DEVONthink Pro to Org Mac Link

[Bastien]

Hi Mike,

Mike McLean  writes:

> This patch adds support for DEVONthink Pro Office
> 
> to Org Mac Links. This likely works for all versions of DEVONthink, but
> that is not tested.

thanks -- the patch got mangled, can you resend it as an attachment or
not use HTML emails?

Thanks!

-- 
 Bastien

[O] [PATCH] Add DEVONthink Pro to Org Mac Link

[Mike McLean]

This patch adds support for DEVONthink Pro Office

to Org Mac Links. This likely works for all versions of DEVONthink, but
that is not tested.

Mike




>From 50c1ded7cb403cecfe09d4ca0be704ba65e05253 Mon Sep 17 00:00:00 2001
From: Mike McLean 
Date: Sat, 14 Jun 2014 00:13:22 -0400
Subject: [PATCH] Add DEVONthink Pro to Org Mac Link

Add DEVONthink Pro Office (likely DEVONthink and DEVONthink Pro also,
but I do not have those variants to test) to Org Mac. Support for
collecting one (or several) DEVONthink items as Org link and support
for opening x-devonthink-item links from withing Org mode.
---
 contrib/lisp/org-mac-link.el | 73

 1 file changed, 73 insertions(+)

diff --git a/contrib/lisp/org-mac-link.el b/contrib/lisp/org-mac-link.el
index 2eafa1b..c53871f 100644
--- a/contrib/lisp/org-mac-link.el
+++ b/contrib/lisp/org-mac-link.el
@@ -9,6 +9,7 @@
 ;;  Christopher Suckling 
 ;;  Daniil Frumin 
 ;;  Alan Schmitt 
+;;  Mike McLean 
 ;;
 ;;
 ;; Version: 1.1
@@ -58,6 +59,7 @@
 ;; Together.app - Grab links to the selected items in the library list
 ;; Skim.app - Grab a link to the selected page in the topmost pdf document
 ;; Microsoft Outlook.app - Grab a link to the selected message in the
message list
+;; DEVONthink Pro Office.app - Grab a link to the selected DEVONthink
item(s); open DEVONthink item by reference
 ;;
 ;;
 ;; Installation:
@@ -110,6 +112,12 @@ applications and inserting them in org documents"
   :group 'org-mac-link
   :type 'boolean)

+(defcustom org-mac-grab-devonthink-app-p t
+  "Enable menu option [d]EVONthink to grab links from DEVONthink Pro
Office.app"
+  :tag "Grab DEVONthink Pro Office.app links"
+  :group 'org-mac-link
+  :type 'boolean)
+
 (defcustom org-mac-grab-Addressbook-app-p t
   "Enable menu option [a]ddressbook to grab links from AddressBook.app"
   :tag "Grab AddressBook.app links"
@@ -192,6 +200,7 @@ applications and inserting them in org documents"
   (interactive)
   (let* ((descriptors `(("F" "inder" org-mac-finder-insert-selected
,org-mac-grab-Finder-app-p)
 ("m" "ail" org-mac-message-insert-selected
,org-mac-grab-Mail-app-p)
+("d" "EVONthink Pro Office"
org-mac-devonthink-item-insert-selected ,org-mac-grab-devonthink-app-p)
 ("o" "utlook"
org-mac-outlook-message-insert-selected ,org-mac-grab-Outlook-app-p)
 ("a" "ddressbook"
org-mac-addressbook-insert-selected ,org-mac-grab-Addressbook-app-p)
 ("s" "afari" org-mac-safari-insert-frontmost-url
,org-mac-grab-Safari-app-p)
@@ -707,6 +716,70 @@ list of mac-outlook:// links to flagged mail after
heading."

 ;;
 ;;
+;; Handle links from DEVONthink Pro Office.app
+;;
+
+(org-add-link-type "x-devonthink-item" 'org-devonthink-item-open)
+
+(defun org-devonthink-item-open (uid)
+  "Open the given uid, which is a reference to an item in DEVONthink Pro
Office"
+  (shell-command (concat "open \"x-devonthink-item:" uid "\"")))
+
+(defun org-as-get-selected-devonthink-item ()
+  "AppleScript to create links to selected items in DEVONthink Pro
Office.app."
+  (do-applescript
+   (concat
+"set theLinkList to {}\n"
+"tell application \"DEVONthink Pro\"\n"
+"set selectedRecords to selection\n"
+"set selectionCount to count of selectedRecords\n"
+"if (selectionCount < 1) then\n"
+"return\n"
+"end if\n"
+"repeat with theRecord in selectedRecords\n"
+"set theID to uuid of theRecord\n"
+"set theURL to \"x-devonthink-item:\" & theID\n"
+"set theSubject to name of theRecord\n"
+"set theLink to theURL & \"::split::\" & theSubject & \"\n\"\n"
+"copy theLink to end of theLinkList\n"
+"end repeat\n"
+"end tell\n"
+"return theLinkList as string"
+)))
+
+(defun org-mac-devonthink-get-links ()
+  "Create links to the item(s) currently selected in DEVONthink Pro Office.
+This will use AppleScript to get the `uuid' and the `name' of the
+selected items in DEVONthink Pro Office.app and make links out of
+it/them. This function will push the Org-syntax text to the kill
+ring, and also return it."
+  (message "Org Mac DEVONthink: looking for selected items...")
+  (let* ((as-link-list (org-as-get-selected-devonthink-item))
+ (link-list (if as-link-list
+(mapcar
+ (lambda (x) (if (string-match
"\\`\"\\(.*\\)\"\\'" x) (setq x (match-string 1 x))) x)
+ (split-string as-link-list "[\r\n]+"))
+  nil))
+ orglink-list)
+(while link-list
+  (let* ((current-item (pop link-list)))
+(message "current item: %s" current-item)
+(when (and current-item (not (string= current-item "")))
+  (let* ((split-link (split-string current-item "::split::"))
+ (orglink (org-make-link-st