From mboxrd@z Thu Jan 1 00:00:00 1970 From: Anthony Lander Subject: patch for org-mac-link-grabber Date: Thu, 24 Jun 2010 14:53:16 -0400 Message-ID: <4CE9026B-4425-48AA-8C41-5008928A3CDB@yahoo.com> Mime-Version: 1.0 (Apple Message framework v936) Content-Type: text/plain; charset=US-ASCII; format=flowed; delsp=yes Content-Transfer-Encoding: 7bit Return-path: Received: from [140.186.70.92] (port=57890 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1ORraT-0008Ri-BB for emacs-orgmode@gnu.org; Thu, 24 Jun 2010 14:55:46 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69) (envelope-from ) id 1ORraS-0002we-3W for emacs-orgmode@gnu.org; Thu, 24 Jun 2010 14:55:45 -0400 Received: from smtp106.prem.mail.ac4.yahoo.com ([76.13.13.45]:26140) by eggs.gnu.org with smtp (Exim 4.69) (envelope-from ) id 1ORraS-0002wO-1R for emacs-orgmode@gnu.org; Thu, 24 Jun 2010 14:55:44 -0400 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Carsten Dominik Cc: emacs-orgmode List Hi Carsten, Could you please apply the following patch to fix a problem where Together links were being incorrectly opened with AddressBook? Thanks -Anthony ---------------------------------------------- diff --git a/contrib/lisp/org-mac-link-grabber.el b/contrib/lisp/org- mac-link-grabber.el index 46a9565..bb12204 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 "\"")))