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
;; order matters: the default will be the first of these that is found
(define all-unix-browsers
'(;; common browsers
;; xdg-open
firefox google-chrome galeon opera mozilla konqueror seamonkey epiphany
'(;; default browser launchers
sensible-browser x-www-browser
;; common browsers
firefox chromium-browser google-chrome galeon opera mozilla konqueror seamonkey epiphany
;; known browsers
camino skipstone
;; broken browsers (broken in that they won't work with plt-help)
;; this is a configurable thing that is deprecated, but better
;; than gnome-open (because it works)
;; this is a configurable thing that is deprecated
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
;; ancient browsers
netscape mosaic
))
;; : any -> bool
@ -205,14 +200,14 @@
;; finally, deal with the actual browser process
[else
(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)]
;; don't really know how to run these
[(camino skipstone mosaic) (simple)]
[(camino skipstone) (simple)]
[(galeon) (if (eq? 'browser-default separate-window?)
(simple) (w/arg (if separate-window? "-w" "-x")))]
[(epiphany) (if separate-window? (w/arg "--new-window") (simple))]
[(mozilla seamonkey netscape) (try-remote)]
[(mozilla seamonkey) (try-remote)]
[(opera)
;; opera starts a new browser automatically
(browser-run exe "-remote"