eww: Fallback on -suggested-uris in -browse-with-external-browser
parent
808367495c
commit
3e9a141de9
|
@ -117,6 +117,17 @@ word(s) will be searched for via `eww-search-prefix'."
|
||||||
(list url nil (current-buffer))))
|
(list url nil (current-buffer))))
|
||||||
(advice-add 'eww :override 'ambrevar/eww)
|
(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)
|
(defun ambrevar/eww-open-in-new-buffer (url)
|
||||||
"Fetch URL and render the page.
|
"Fetch URL and render the page.
|
||||||
If the input doesn't look like an URL or a domain name, the
|
If the input doesn't look like an URL or a domain name, the
|
||||||
|
|
Loading…
Reference in New Issue