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

2 files changed, 15 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 76d1f065401..11c7b2de534 100644
--- 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 5ad4c327627..d56031a6f34 100644
--- 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"