From mboxrd@z Thu Jan 1 00:00:00 1970 From: Carsten Dominik Subject: Re: patch for org-mac-link-grabber Date: Tue, 29 Jun 2010 06:53:23 +0200 Message-ID: <64C7EACC-2DB7-4ED8-B228-5EC4E3B97CD0@gmail.com> References: <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=46805 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1OTSp7-0006ho-7F for emacs-orgmode@gnu.org; Tue, 29 Jun 2010 00:53:30 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69) (envelope-from ) id 1OTSp6-0004SR-1x for emacs-orgmode@gnu.org; Tue, 29 Jun 2010 00:53:29 -0400 Received: from mail-ww0-f41.google.com ([74.125.82.41]:50223) by eggs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1OTSp5-0004SL-SB for emacs-orgmode@gnu.org; Tue, 29 Jun 2010 00:53:28 -0400 Received: by wwf26 with SMTP id 26so3617123wwf.0 for ; Mon, 28 Jun 2010 21:53:26 -0700 (PDT) In-Reply-To: <4CE9026B-4425-48AA-8C41-5008928A3CDB@yahoo.com> 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: Anthony Lander Cc: emacs-orgmode List Anthony, this somehow got garbles in the patchworks catcher. Can you please submit the patch again and attach it, so that you email program cannot garble it? Thanks. - Carsten On Jun 24, 2010, at 8:53 PM, Anthony Lander wrote: > 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 "\""))) > - Carsten