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

added support for dillo for us poor macosxonx users with no system-able browser

Browse Source 
original commit: b9a243ed98e8a0b334ee48094194a2516d4a59ce
This commit is contained in:
Robby Findler 2002-04-24 03:24:45 +00:00
parent 33f070b826
commit 04ecdd4281
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/net/sendurl.ss
View File

@ -48,8 +48,14 @@
(format "~a,new-window" str) (format "~a,new-window" str)
str))) str)))
(process*/close-ports browser-path 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 [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))])))) [else (error 'send-url "don't know how to open URL on platform: ~s" (system-type))]))))
; null-input : iport ; null-input : iport