From 05b3a0cab16fbdf31824c9f57ed1b8da26f6f8ed Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 20 Dec 2001 17:36:11 +0000
Subject: [PATCH] .

original commit: f64490b81c7cb4661eb1f72ebbae059cd07871a4
---
 collects/net/sendurl.ss | 56 +++++++++++++++++++++++------------------
 1 file changed, 31 insertions(+), 25 deletions(-)

diff --git a/collects/net/sendurl.ss b/collects/net/sendurl.ss
index 50382fed12..6ee30e234d 100644
--- a/collects/net/sendurl.ss
+++ b/collects/net/sendurl.ss
@@ -1,6 +1,7 @@
 
 (module sendurl mzscheme
-  (require (lib "process.ss"))
+  (require (lib "process.ss")
+	   (lib "file.ss"))
 
   (provide send-url)
   
@@ -24,28 +25,33 @@
 		 (close-input-port err)))
 	     (error 'send-url "don't know how to open URL in Windows without MrEd")))]
       [(unix)
-       (cond
-         [(find-executable-path "opera" #f)
-          =>
-          (lambda (browser-path) 
-            ;; opera may not return -- always open asyncronously
-            ;; opera starts a new browser automatically, if it can't find one
-            (let-values ([(out in id err status) (apply 
-                                                  values
-                                                  (process* browser-path "-remote" (format "openURL(~a)" str)))])
-              (close-output-port in)
-              (close-input-port out)
-              (close-input-port err)))]
-         [(find-executable-path "netscape" #f)
-          =>
-          (lambda (browser-path)
-            ;; netscape's -remote returns with an error code, if no
-            ;; netscape is around. start a new netscape in that case.
-            (or (system* browser-path "-remote" (format "openURL(~a)" str))
-                (let-values ([(out in id err status) (apply values (process* browser-path str))])
-                  (close-output-port in)
-                  (close-input-port out)
-                  (close-input-port err))))]
-         [else
-          (error 'open-url "Couldn't find Netscape or Opera to open URL: ~e" str)])]
+       (let ([preferred (get-preference 'external-browser (lambda () #f))])
+	 (cond
+	  [(and (or (not preferred)
+		    (eq? preferred 'opera))
+		(find-executable-path "opera" #f))
+	   =>
+	   (lambda (browser-path) 
+	     ;; opera may not return -- always open asyncronously
+	     ;; opera starts a new browser automatically, if it can't find one
+	     (let-values ([(out in id err status) (apply 
+						   values
+						   (process* browser-path "-remote" (format "openURL(~a)" str)))])
+	       (close-output-port in)
+	       (close-input-port out)
+	       (close-input-port err)))]
+	  [(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
+	     ;; netscape is around. start a new netscape in that case.
+	     (or (system* browser-path "-remote" (format "openURL(~a)" str))
+		 (let-values ([(out in id err status) (apply values (process* browser-path str))])
+		   (close-output-port in)
+		   (close-input-port out)
+		   (close-input-port err))))]
+	  [else
+	   (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))])))