(eww-mode-map): Add a menu bar.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 76d1f0654015c03d900a06f5e7b60f2a95b76ec8..11c7b2de534339d6b3a471a1da2a7b7cf6db39b3 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,7 @@
 
        * net/eww.el (eww-mode): Undo isn't necessary in eww buffers,
        probably.
+       (eww-mode-map): Add a menu bar.
 
 2013-06-26  Glenn Morris  <rgm@gnu.org>
 

diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index 5ad4c327627cad23ade73ecef118ece1dacd53ce..d56031a6f34ba4d13d482a7d6410fdd440ab8f25 100644 (file)
--- a/lisp/net/eww.el
+++ b/lisp/net/eww.el
@@ -335,6 +335,20 @@ word(s) will be searched for via `eww-search-prefix'."
     (define-key map "&" 'eww-browse-with-external-browser)
     (define-key map "d" 'eww-download)
     (define-key map "w" 'eww-copy-page-url)
+    (define-key map "C" 'url-cookie-list)
+
+    (easy-menu-define nil map ""
+      '("eww"
+       ["Quit" eww-quit t]
+       ["Reload" eww-reload t]
+       ["Back to previous page" eww-back-url
+        :active (not (zerop (length eww-history)))]
+       ["Forward to next page" eww-forward-url
+        :active (not (zerop eww-history-position))]
+       ["Browse with external browser" eww-browse-with-external-browser t]
+       ["Download" eww-download t]
+       ["Copy page URL" eww-copy-page-url t]
+       ["List cookies" url-cookie-list t]))
     map))
 
 (define-derived-mode eww-mode nil "eww"