From 04ecdd4281c12cd6a95b6e78c4b217d53ec9ae1f Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 24 Apr 2002 03:24:45 +0000 Subject: [PATCH] added support for dillo for us poor macosxonx users with no system-able browser original commit: b9a243ed98e8a0b334ee48094194a2516d4a59ce --- collects/net/sendurl.ss | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/collects/net/sendurl.ss b/collects/net/sendurl.ss index 2327b9c087..34cc8e8c4f 100644 --- a/collects/net/sendurl.ss +++ b/collects/net/sendurl.ss @@ -48,8 +48,14 @@ (format "~a,new-window" str) str))) (process*/close-ports browser-path str)))] + [(and (and (or (not preferred) + (eq? preferred 'netscape))) + (find-executable-path "dillo" #f)) + => + (lambda (browser-path) + (process*/close-ports browser-path str))] [else - (error 'open-url "Couldn't find Netscape or Opera to open URL: ~e" str)]))] + (error 'open-url "Couldn't find Opera, Netscape, or Dillo to open URL: ~e" str)]))] [else (error 'send-url "don't know how to open URL on platform: ~s" (system-type))])))) ; null-input : iport