From 3e9a141de99f3d4041262bc0ab417b753c32258f Mon Sep 17 00:00:00 2001 From: Pierre Neidhardt Date: Mon, 27 Aug 2018 10:10:57 +0200 Subject: [PATCH] eww: Fallback on -suggested-uris in -browse-with-external-browser --- .emacs.d/lisp/init-eww.el | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/.emacs.d/lisp/init-eww.el b/.emacs.d/lisp/init-eww.el index 827ba102..e01351df 100644 --- a/.emacs.d/lisp/init-eww.el +++ b/.emacs.d/lisp/init-eww.el @@ -117,6 +117,17 @@ word(s) will be searched for via `eww-search-prefix'." (list url nil (current-buffer)))) (advice-add 'eww :override 'ambrevar/eww) +(defun ambrevar/eww-browse-with-external-browser (&optional url) + "Browse the current URL with an external browser. +The browser to used is specified by the `shr-external-browser' variable." + (interactive) + (funcall shr-external-browser (or url + (car (eww-suggested-uris)) + (plist-get eww-data :url)))) +(advice-add 'eww-browse-with-external-browser + :override + 'ambrevar/eww-browse-with-external-browser) + (defun ambrevar/eww-open-in-new-buffer (url) "Fetch URL and render the page. If the input doesn't look like an URL or a domain name, the