bug#19106: M-x eww: use the current URI as the default; be bound to a key

[Ivan Shmakov <ivan@siamics.net>]

[-- Attachment #1: Type: text/plain, Size: 841 bytes --]

Package:  emacs
Severity: wishlist

	The patch MIMEd makes ‘eww’ use the currently browsed URI as the
	default while prompting.  One of the consequences is that it’s
	now possible for the user to use M-n (or <down>) to get one, and
	feed it back to EWW after editing as necessary.

	I also suggest to bind the ‘eww’ command to ‘G’ in eww-mode-map,
	for both it’s a sane mnemonic (“Go to”), and also given that
	this behavior is rather similar to the Lynx ECGOTO command,
	bound to ‘G’ in its default keymap.

	Also to note is that M-x eww currently does /not/ call
	eww-save-history, and simply “forgets” the page currently
	visited.  I use a workaround for that, but have no sane fix to
	suggest right now.

-- 
FSF associate member #7257  http://boycottsystemd.org/  … 3013 B6A0 230E 334A

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: Type: text/diff, Size: 931 bytes --]

--- a/lisp/net/eww.el
+++ b/lisp/net/eww.el
@@ -159,9 +203,14 @@
 ;;;###autoload
 (defun eww (url)
   "Fetch URL and render the page.
 If the input doesn't look like an URL or a domain name, the
 word(s) will be searched for via `eww-search-prefix'."
-  (interactive "sEnter URL or keywords: ")
+  (interactive
+   (let* ((uri (plist-get eww-data :url))
+	  (prompt (concat "Enter URL or keywords"
+			  (if uri (format " (default %s)" uri) "")
+			  ": ")))
+     (list (read-string prompt nil nil uri))))
   (setq url (string-trim url))
   (cond ((string-match-p "\\`file:/" url))
 	;; Don't mangle file: URLs at all.
@@ -513,6 +568,7 @@ the like."
     (suppress-keymap map)
     (define-key map "q" 'quit-window)
     (define-key map "g" 'eww-reload)
+    (define-key map "G" 'eww)
     (define-key map [?\t] 'shr-next-link)
     (define-key map [?\M-\t] 'shr-previous-link)
     (define-key map [delete] 'scroll-down-command)