procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Further eww DWIM URL interpretation fixups

Browse source 
(eww): Also interpret things like "en.wikipedia.org/wiki/Free
software" as an URL.
This commit is contained in:
Lars Magne Ingebrigtsen 2015-01-10 16:20:44 +01:00
parent 0046f2c158
commit 790ca72b3e
2 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/ChangeLog
View file

@ -2,6 +2,8 @@
* net/eww.el (eww): Always interpret URLs that start with https?:
as plain URLs, even if they have spaces in them (bug#19556).
(eww): Also interpret things like "en.wikipedia.org/wiki/Free
software" as an URL.
2015-01-10 Daniel Colascione <dancol@dancol.org>

5
lisp/net/eww.el
View file

@ -256,6 +256,9 @@ word(s) will be searched for via `eww-search-prefix'."
(user-error "FTP is not supported."))
(t
(if (or (string-match "\\`https?:" url)
;; Also try to match "naked" URLs like
;; en.wikipedia.org/wiki/Free software
(string-match "\\`[a-z._]+/" url)
(and (= (length (split-string url)) 1)
(or (and (not (string-match-p "\\`[\"\'].*[\"\']\\'" url))
(> (length (split-string url "[.:]")) 1))
@ -263,7 +266,7 @@ word(s) will be searched for via `eww-search-prefix'."
(progn
(unless (string-match-p "\\`[a-zA-Z][-a-zA-Z0-9+.]*://" url)
(setq url (concat "http://" url)))
;; some site don't redirect final /
;; Some sites do not redirect final /
(when (string= (url-filename (url-generic-parse-url url)) "")
(setq url (concat url "/"))))
(setq url (concat eww-search-prefix