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

switch to scheme/base

Browse Source 
svn: r8441
This commit is contained in:
Eli Barzilay 2008-01-28 08:38:12 +00:00
parent cd2724534a
commit 21ffab3fe3
1 changed files with 127 additions and 128 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
collects/net/sendurl.ss
View File

@ -1,19 +1,20 @@
;; The main client of this module is browser/external.ss
;; (others just use the (send-url url [new?]) interface.)
(module sendurl mzscheme
(require (lib "process.ss")
(lib "file.ss")
(lib "kw.ss")
(lib "port.ss")
(lib "sendevent.ss"))
#lang scheme/base
(require scheme/system
scheme/file
scheme/promise
scheme/port)
(provide send-url unix-browser-list browser-preference? external-browser)
(define separate-by-default?
(get-preference 'new-browser-for-urls (lambda () #t)))
(define unix-browser-list '(gnome-open firefox galeon opera netscape mozilla dillo))
(define unix-browser-list
'(gnome-open firefox galeon opera netscape mozilla dillo))
;; : any -> bool
(define (custom-browser? x)
@ -42,9 +43,8 @@
'macosx]
[else t]))))
; send-url : str [bool] -> void
(define/kw (send-url url-str
#:optional [separate-window? separate-by-default?])
;; send-url : str [bool] -> void
(define (send-url url-str [separate-window? separate-by-default?])
(define stupid-internal-define-syntax1
(unless (string? url-str)
(error 'send-url "expected a string, got ~e" url-str)))
@ -96,8 +96,7 @@
=> (lambda (exe)
(browser-process* exe (if separate-window? "-w" "-x") url-str))]
[(use-browser 'gnome-open)
=> (lambda (exe)
(browser-process* exe url-str))]
=> (lambda (exe) (browser-process* exe url-str))]
[(or (use-browser 'netscape)
(use-browser 'mozilla)
(use-browser 'firefox))
@ -139,4 +138,4 @@
(run-browser process*/ports args))
(define (browser-process . args)
(run-browser process/ports args)))
(run-browser process/ports args))