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

[Ivan Shmakov]

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

--- 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)