From mboxrd@z Thu Jan 1 00:00:00 1970 From: Anthony Lander Subject: [PATCH] resubmitted patch to contrib/lisp/org-mac-link-grabber.el Date: Tue, 29 Jun 2010 08:49:03 -0400 Message-ID: Mime-Version: 1.0 (Apple Message framework v936) Content-Type: multipart/mixed; boundary=Apple-Mail-9-1008316455 Return-path: Received: from [140.186.70.92] (port=46393 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1OTaFQ-0004ZN-1o for emacs-orgmode@gnu.org; Tue, 29 Jun 2010 08:49:08 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69) (envelope-from ) id 1OTaFO-0006wj-Qm for emacs-orgmode@gnu.org; Tue, 29 Jun 2010 08:49:07 -0400 Received: from smtp101.prem.mail.ac4.yahoo.com ([76.13.13.40]:25881) by eggs.gnu.org with smtp (Exim 4.69) (envelope-from ) id 1OTaFO-0006wa-Oa for emacs-orgmode@gnu.org; Tue, 29 Jun 2010 08:49:06 -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: emacs-orgmode Mode --Apple-Mail-9-1008316455 Content-Type: text/plain; charset=US-ASCII; format=flowed; delsp=yes Content-Transfer-Encoding: 7bit This patch fixes an issue with opening AddressBook.app and Together.app links. --Apple-Mail-9-1008316455 Content-Disposition: attachment; filename=org-mac-link-grabber.patch Content-Type: application/octet-stream; x-unix-mode=0644; name="org-mac-link-grabber.patch" Content-Transfer-Encoding: 7bit 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 "\""))) --Apple-Mail-9-1008316455 Content-Type: text/plain; charset=US-ASCII; format=flowed Content-Transfer-Encoding: 7bit --Apple-Mail-9-1008316455 Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Disposition: inline _______________________________________________ Emacs-orgmode mailing list Please use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode --Apple-Mail-9-1008316455--