From f98bb728aaa126c9942011b3a8c75469d331a266 Mon Sep 17 00:00:00 2001 From: David Maus Date: Wed, 30 Jun 2010 10:32:28 +0000 Subject: [PATCH] resubmitted patch to contrib/lisp/org-mac-link-grabber.el Anthony Lander wrote: >[1 ] >This patch fixes an issue with opening AddressBook.app and >Together.app links. This is just a reply with the patch attached in a way the patchtracker[1] will catch it. -- David [1] http://patchwork.newartisans.com/project/org-mode/list/ --- contrib/lisp/org-mac-link-grabber.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/contrib/lisp/org-mac-link-grabber.el b/contrib/lisp/org-mac-link-grabber.el index 46a95656f..bb122043e 100644 --- a/contrib/lisp/org-mac-link-grabber.el +++ b/contrib/lisp/org-mac-link-grabber.el @@ -318,7 +318,7 @@ applications and inserting them in org documents" (defun org-mac-together-item-open (uid) "Open the given uid, which is a reference to an item in Together" - (shell-command (concat "open \"x-together-item:" uid "\""))) + (shell-command (concat "open -a Together \"x-together-item:" uid "\""))) (defun as-get-selected-together-items () (do-applescript @@ -378,9 +378,9 @@ applications and inserting them in org documents" ;; ;; -(org-add-link-type "addressbook" 'org-mac-together-item-open) +(org-add-link-type "addressbook" 'org-mac-addressbook-item-open) -(defun org-mac-together-item-open (uid) +(defun org-mac-addressbook-item-open (uid) "Open the given uid, which is a reference to an item in Together" (shell-command (concat "open \"addressbook:" uid "\""))) -- 2.11.4.GIT