From: Juri Linkov <juri@jurta.org>
To: "Jan Djärv" <jan.h.d@swipnet.se>
Cc: 9779@debbugs.gnu.org
Subject: bug#9779: No usable browser found on Lubuntu
Date: Tue, 18 Oct 2011 09:57:54 +0300 [thread overview]
Message-ID: <87r52azsj9.fsf@mail.jurta.org> (raw)
In-Reply-To: <73E891D0-70FD-418B-BA23-C1D272DE0B2A@swipnet.se> ("Jan \=\?iso-8859-1\?Q\?Dj\=E4rv\=22's\?\= message of "Tue, 18 Oct 2011 07:37:25 +0200")
> Chrome also goes by the name google-chrome. Since chromium and chrome
> isn't the same thing and you can have both installed,
> browse-url-chromium-program is not really the right name for it if it
> also tries chrome.
Unlike partially proprietary Chrome, Chromium is free software,
so it deserves to be added to browse-url.el.
I agree that we should not search for the executable "chrome"
which is not free software. So below is a new patch
that supports only free software version "Chromium".
I propose to add it independently of xdg-open for systems
that have Chromium but not xdg-open.
=== modified file 'lisp/net/browse-url.el'
--- lisp/net/browse-url.el 2011-08-21 01:01:12 +0000
+++ lisp/net/browse-url.el 2011-10-18 06:57:02 +0000
@@ -36,6 +36,7 @@
;; Function Browser Earliest version
;; browse-url-mozilla Mozilla Don't know
;; browse-url-firefox Firefox Don't know (tried with 1.0.1)
+;; browse-url-chromium Chromium 3.0
;; browse-url-galeon Galeon Don't know
;; browse-url-epiphany Epiphany Don't know
;; browse-url-netscape Netscape 1.1b1
@@ -230,6 +232,7 @@ (defcustom browse-url-browser-function
:value browse-url-w3-gnudoit)
(function-item :tag "Mozilla" :value browse-url-mozilla)
(function-item :tag "Firefox" :value browse-url-firefox)
+ (function-item :tag "Chromium" :value browse-url-chromium)
(function-item :tag "Galeon" :value browse-url-galeon)
(function-item :tag "Epiphany" :value browse-url-epiphany)
(function-item :tag "Netscape" :value browse-url-netscape)
@@ -336,6 +341,22 @@ (defcustom browse-url-firefox-startup-ar
:type '(repeat (string :tag "Argument"))
:group 'browse-url)
+(defcustom browse-url-chromium-program
+ (let ((candidates '("chromium" "chromium-browser")))
+ (while (and candidates (not (executable-find (car candidates))))
+ (setq candidates (cdr candidates)))
+ (or (car candidates) "chromium"))
+ "The name by which to invoke Chromium."
+ :type 'string
+ :version "24.1"
+ :group 'browse-url)
+
+(defcustom browse-url-chromium-arguments nil
+ "A list of strings to pass to Chromium as arguments."
+ :type '(repeat (string :tag "Argument"))
+ :version "24.1"
+ :group 'browse-url)
+
(defcustom browse-url-galeon-program "galeon"
"The name by which to invoke Galeon."
:type 'string
@@ -913,6 +934,7 @@ (defun browse-url-default-browser (url &
((executable-find browse-url-gnome-moz-program) 'browse-url-gnome-moz)
((executable-find browse-url-mozilla-program) 'browse-url-mozilla)
((executable-find browse-url-firefox-program) 'browse-url-firefox)
+ ((executable-find browse-url-chromium-program) 'browse-url-chromium)
((executable-find browse-url-galeon-program) 'browse-url-galeon)
((executable-find browse-url-kde-program) 'browse-url-kde)
((executable-find browse-url-netscape-program) 'browse-url-netscape)
@@ -1141,6 +1164,22 @@ (defun browse-url-firefox-sentinel (proc
(append browse-url-firefox-startup-arguments (list url))))))
;;;###autoload
+(defun browse-url-chromium (url &optional new-window)
+ "Ask the Chromium WWW browser to load URL.
+Default to the URL around or before point. The strings in
+variable `browse-url-chromium-arguments' are also passed to
+Chromium."
+ (interactive (browse-url-interactive-arg "URL: "))
+ (setq url (browse-url-encode-url url))
+ (let* ((process-environment (browse-url-process-environment)))
+ (apply 'start-process
+ (concat "chromium " url) nil
+ browse-url-chromium-program
+ (append
+ browse-url-chromium-arguments
+ (list url)))))
+
+;;;###autoload
(defun browse-url-galeon (url &optional new-window)
"Ask the Galeon WWW browser to load URL.
Default to the URL around or before point. The strings in variable
next prev parent reply other threads:[~2011-10-18 6:57 UTC|newest]
Thread overview: 21+ messages / expand[flat|nested] mbox.gz Atom feed top
2011-10-17 23:14 bug#9779: No usable browser found on Lubuntu Juri Linkov
2011-10-18 1:53 ` Stefan Monnier
2011-10-18 6:55 ` Juri Linkov
2011-10-18 8:12 ` Lawrence Mitchell
2011-10-18 9:09 ` Juri Linkov
2011-10-18 9:53 ` Jan Djärv
2011-10-18 9:04 ` Juri Linkov
2011-10-18 10:06 ` Jan Djärv
2011-10-18 9:58 ` Jan Djärv
2011-10-19 9:12 ` Juri Linkov
2011-10-19 14:52 ` Jan Djärv
2011-10-19 22:42 ` Juri Linkov
2011-10-18 13:17 ` Stefan Monnier
2011-10-18 5:37 ` Jan Djärv
2011-10-18 6:57 ` Juri Linkov [this message]
2011-10-18 13:16 ` Stefan Monnier
2011-10-19 9:10 ` Juri Linkov
2011-10-20 14:47 ` Nix
2011-10-20 18:41 ` Stefan Monnier
2011-10-20 20:08 ` Nix
2011-10-21 11:25 ` Richard Stallman
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87r52azsj9.fsf@mail.jurta.org \
--to=juri@jurta.org \
--cc=9779@debbugs.gnu.org \
--cc=jan.h.d@swipnet.se \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.