From: Lars Magne Ingebrigtsen <larsi@gnus.org>
Date: Wed, 26 Jun 2013 13:07:24 +0000 (+0200)
Subject: (eww-mode-map): Add a menu bar.
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~1992^2~27
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=23a75d7f5957aef1b8bbbf07672596d0535a7c27;p=emacs.git

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

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"