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