[PATCH] resubmitted patch to contrib/lisp/org-mac-link-grabber.el

[PATCH] resubmitted patch to contrib/lisp/org-mac-link-grabber.el

[Anthony Lander]

[-- Attachment #1: Type: text/plain, Size: 81 bytes --]

This patch fixes an issue with opening AddressBook.app and  
Together.app links.

[-- Attachment #2: org-mac-link-grabber.patch --]
[-- Type: application/octet-stream, Size: 1017 bytes --]

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 "\"")))
 

[-- Attachment #3: Type: text/plain, Size: 1 bytes --]



[-- Attachment #4: Type: text/plain, Size: 201 bytes --]

_______________________________________________
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

Re: [PATCH] resubmitted patch to contrib/lisp/org-mac-link-grabber.el

[David Maus]

[-- Attachment #1.1.1: Type: text/plain, Size: 392 bytes --]

Anthony Lander wrote:
>[1  <text/plain; US-ASCII (7bit)>]
>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/
--
OpenPGP... 0x99ADB83B5A4478E6
Jabber.... dmjena@jabber.org
Email..... dmaus@ictsoc.de

[-- Attachment #1.1.2: org-mac-link-grabber.patch --]
[-- Type: text/plain, Size: 1017 bytes --]

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 "\"")))
 

[-- Attachment #1.2: Type: application/pgp-signature, Size: 230 bytes --]

[-- Attachment #2: Type: text/plain, Size: 201 bytes --]

_______________________________________________
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

Re: [PATCH] resubmitted patch to contrib/lisp/org-mac-link-grabber.el

[Carsten Dominik]

On Jun 30, 2010, at 7:32 AM, David Maus wrote:

> Anthony Lander wrote:
>> [1  <text/plain; US-ASCII (7bit)>]
>> 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.

Applied, thanks.

- Carsten