[Ram Krishnan <rkris@kriyative.net>] patch for browse-url.el to support remote control of Safari on Mac OS X

[Ram Krishnan <rkris@kriyative.net>] patch for browse-url.el to support remote control of Safari on Mac OS X

[Dave Love]

[-- Attachment #1: Type: message/rfc822, Size: 2146 bytes --]

From: Ram Krishnan <rkris@kriyative.net>
To: Dave Love <fx@gnu.org>
Subject: patch for browse-url.el to support remote control of Safari on Mac OS X
Date: Sat, 15 Feb 2003 10:50:18 -0800
Message-ID: <5438ED2C-4116-11D7-B2C0-000393DB2FDA@kriyative.net>

Hello,

I'm not sure if you're the right person to send this to; I found your 
name listed in browse-url.el and I figured you'd know how to get this 
integrated.

Anyway here's a quick way to get remote control of a a Safari browser 
on Mac OS X from browse-url. I figured others might find it useful as 
well.

----
(defun browse-url-mac-safari (url &optional new-window)
   (interactive)
   (let ((rc (concat "tell application \"Safari\"\n"
                     "activate\n"
                     (if new-window
                         "open location \"%s\"\n"
                       "set URL of the first document to \"%s\"\n")
                     "end tell\n")))
     (do-applescript
      (format rc url))))
----

It should be pretty trivial to modify this to apply to other browsers 
as well.

Regards,

-ram





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

_______________________________________________
Bug-gnu-emacs mailing list
Bug-gnu-emacs@gnu.org
http://mail.gnu.org/mailman/listinfo/bug-gnu-emacs