From 81fa8c403d671e5a8f6b3699fb9871872ca2353b Mon Sep 17 00:00:00 2001
From: Reuben Thomas <rrt@sc3d.org>
Date: Wed, 9 Nov 2016 00:57:08 +0000
Subject: [PATCH] sendurl: overhaul browser list
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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).
---
 pkgs/net-lib/net/sendurl.rkt | 21 ++++++++-------------
 1 file changed, 8 insertions(+), 13 deletions(-)

diff --git a/pkgs/net-lib/net/sendurl.rkt b/pkgs/net-lib/net/sendurl.rkt
index 10adaa5bdb..740a578c6a 100644
--- a/pkgs/net-lib/net/sendurl.rkt
+++ b/pkgs/net-lib/net/sendurl.rkt
@@ -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"