Re: Unable to access HyperSpec via Ilisp on OS X

From: Thomas F. Bur*** (tfb_at_famine.OCF.Berkeley.EDU)
Date: 11/06/03 

Date: 06 Nov 2003 08:59:57 -0800

Hmm, the send-url-to-safari I posted was a little more appropriate for
VM than for HyperSpec reading. The following version lets you avoid
always popping up new windows.

  (defun send-url-to-safari (url &optional reuse-window)
    "Sends URL to Safari, using Apple's Open Scripting Architecture."
    (with-temp-buffer
      (insert "tell application \"Safari\"\n")
      (insert " activate\n")
      (unless reuse-window
        (insert " make new document at the beginning of documents\n"))
      (insert (format " set the URL of the front document to \"%s\"\n" url))
      (insert "end tell\n")
      (call-process-region (point-min) (point-max) "/usr/bin/osascript"))) 

-- 
           /|_     .-----------------------.                        
         ,'  .\  / | No to Imperialist war |                        
     ,--'    _,'   | Wage class war!       |                        
    /       /      `-----------------------'                        
   (   -.  |                               
   |     ) |                               
  (`-.  '--.)                              
   `. )----'