suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

.

Browse Source 
original commit: f64490b81c7cb4661eb1f72ebbae059cd07871a4
This commit is contained in:
Matthew Flatt 2001-12-20 17:36:11 +00:00
parent a450ad9490
commit 05b3a0cab1
1 changed files with 31 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
collects/net/sendurl.ss
View File

@ -1,6 +1,7 @@
(module sendurl mzscheme
(require (lib "process.ss"))
(require (lib "process.ss")
(lib "file.ss"))
(provide send-url)
@ -24,8 +25,11 @@
(close-input-port err)))
(error 'send-url "don't know how to open URL in Windows without MrEd")))]
[(unix)
(let ([preferred (get-preference 'external-browser (lambda () #f))])
(cond
[(find-executable-path "opera" #f)
[(and (or (not preferred)
(eq? preferred 'opera))
(find-executable-path "opera" #f))
=>
(lambda (browser-path)
;; opera may not return -- always open asyncronously
@ -36,7 +40,9 @@
(close-output-port in)
(close-input-port out)
(close-input-port err)))]
[(find-executable-path "netscape" #f)
[(and (and (or (not preferred)
(eq? preferred 'netscape)))
(find-executable-path "netscape" #f))
=>
(lambda (browser-path)
;; netscape's -remote returns with an error code, if no
@ -47,5 +53,5 @@
(close-input-port out)
(close-input-port err))))]
[else
(error 'open-url "Couldn't find Netscape or Opera to open URL: ~e" str)])]
(error 'open-url "Couldn't find Netscape or Opera to open URL: ~e" str)]))]
[else (error 'send-url "don't know how to open URL on platform: ~s" (system-type))])))