[PATCH 4/5] eww: Add tool bar support.

[Rüdiger Sonderfeld]

* lisp/net/eww.el (eww-tool-bar-map): New variable.
  (eww-mode): Set `tool-bar-map'.
---
 lisp/ChangeLog  |  2 ++
 lisp/net/eww.el | 17 +++++++++++++++++
 2 files changed, 19 insertions(+)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 54f6c77..14d539d 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -7,6 +7,8 @@
        Use `user-error'.
        (eww-bookmark-mode-map): Add menu.
        (eww-render, eww-mode): Use `setq-local'.
+       (eww-tool-bar-map): New variable.
+       (eww-mode): Set `tool-bar-map'.
 
 2013-12-19  Teodor Zlatanov  <address@hidden>
 
diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index a58b7ed..cae5cfd 100644
--- a/lisp/net/eww.el
+++ b/lisp/net/eww.el
@@ -438,6 +438,21 @@ (defvar eww-mode-map
        ["List cookies" url-cookie-list t]))
     map))
 
+(defvar eww-tool-bar-map
+  (let ((map (make-sparse-keymap)))
+    (dolist (tool-bar-item
+             '((eww-quit . "close")
+               (eww-reload . "refresh")
+               (eww-back-url . "left-arrow")
+               (eww-forward-url . "right-arrow")
+               (eww-view-source . "show")
+               (eww-copy-page-url . "copy")
+               (eww-add-bookmark . "bookmark_add"))) ;; ...
+      (tool-bar-local-item-from-menu
+       (car tool-bar-item) (cdr tool-bar-item) map eww-mode-map))
+    map)
+  "Tool bar for `eww-mode'.")
+
 (define-derived-mode eww-mode nil "eww"
   "Mode for browsing the web.
 
@@ -450,6 +465,8 @@ (define-derived-mode eww-mode nil "eww"
   (setq-local after-change-functions 'eww-process-text-input)
   (setq-local eww-history nil)
   (setq-local eww-history-position 0)
+  (when (boundp 'tool-bar-map)
+   (setq-local tool-bar-map eww-tool-bar-map))
   (buffer-disable-undo)
   ;;(setq buffer-read-only t)
   )
-- 
1.8.5