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

sendurl: overhaul browser list

Browse Source 
Remove “ancient browsers” netscape and mosaic.

Remove non-browsers (xdg-open, gnome-open), because we really want a
browser, and they don’t understand file URLs with queries.

Add chromium-browser.

Add default browser finders x-www-browser and sensible-browser (Debian &
derivatives).
This commit is contained in:
Reuben Thomas 2016-11-09 00:57:08 +00:00 committed by Vincent St-Amour
parent db26a24f2f
commit 81fa8c403d
1 changed files with 8 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
pkgs/net-lib/net/sendurl.rkt
View File

@ -23,22 +23,17 @@
;; all possible unix browsers, filtered later to just existing executables ;; all possible unix browsers, filtered later to just existing executables
;; order matters: the default will be the first of these that is found ;; order matters: the default will be the first of these that is found
(define all-unix-browsers (define all-unix-browsers
'(;; common browsers '(;; default browser launchers
;; xdg-open sensible-browser x-www-browser
firefox google-chrome galeon opera mozilla konqueror seamonkey epiphany ;; common browsers
firefox chromium-browser google-chrome galeon opera mozilla konqueror seamonkey epiphany
;; known browsers ;; known browsers
camino skipstone camino skipstone
;; broken browsers (broken in that they won't work with plt-help) ;; broken browsers (broken in that they won't work with plt-help)
;; this is a configurable thing that is deprecated, but better ;; this is a configurable thing that is deprecated
;; than gnome-open (because it works)
htmlview htmlview
;; gnome-open could be high, but the problem is that it doesn't
;; handle file:// URLs with a query string.
gnome-open
;; dillo does not have javascript ;; dillo does not have javascript
dillo dillo
;; ancient browsers
netscape mosaic
)) ))
;; : any -> bool ;; : any -> bool
@ -205,14 +200,14 @@
;; finally, deal with the actual browser process ;; finally, deal with the actual browser process
[else [else
(case browser (case browser
[(xdg-open gnome-open firefox konqueror dillo htmlview google-chrome) [(sensible-browser x-www-browser firefox konqueror dillo htmlview google-chrome chromium-browser)
(simple)] (simple)]
;; don't really know how to run these ;; don't really know how to run these
[(camino skipstone mosaic) (simple)] [(camino skipstone) (simple)]
[(galeon) (if (eq? 'browser-default separate-window?) [(galeon) (if (eq? 'browser-default separate-window?)
(simple) (w/arg (if separate-window? "-w" "-x")))] (simple) (w/arg (if separate-window? "-w" "-x")))]
[(epiphany) (if separate-window? (w/arg "--new-window") (simple))] [(epiphany) (if separate-window? (w/arg "--new-window") (simple))]
[(mozilla seamonkey netscape) (try-remote)] [(mozilla seamonkey) (try-remote)]
[(opera) [(opera)
;; opera starts a new browser automatically ;; opera starts a new browser automatically
(browser-run exe "-remote" (browser-run exe "-remote"