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

add gnome-open browser option

Browse Source 
svn: r7980

original commit: c65c51739a
This commit is contained in:
Matthew Flatt 2007-12-12 22:43:15 +00:00
parent 7ca4d19282
commit 832a30bfb4
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/net/sendurl.ss
View File

@ -13,7 +13,7 @@
(define separate-by-default? (define separate-by-default?
(get-preference 'new-browser-for-urls (lambda () #t))) (get-preference 'new-browser-for-urls (lambda () #t)))
(define unix-browser-list '(firefox galeon opera netscape mozilla dillo)) (define unix-browser-list '(gnome-open firefox galeon opera netscape mozilla dillo))
;; : any -> bool ;; : any -> bool
(define (custom-browser? x) (define (custom-browser? x)
@ -77,6 +77,9 @@
[(use-browser 'galeon) [(use-browser 'galeon)
=> (lambda (exe) => (lambda (exe)
(browser-process* exe (if separate-window? "-w" "-x") url-str))] (browser-process* exe (if separate-window? "-w" "-x") url-str))]
[(use-browser 'gnome-open)
=> (lambda (exe)
(browser-process* exe url-str))]
[(or (use-browser 'netscape) [(or (use-browser 'netscape)
(use-browser 'mozilla) (use-browser 'mozilla)
(use-browser 'firefox)) (use-browser 'firefox))