[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[PATCH 4/5] eww: Add tool bar support.
From: |
Rüdiger Sonderfeld |
Subject: |
[PATCH 4/5] eww: Add tool bar support. |
Date: |
Fri, 20 Dec 2013 00:44:49 +0100 |
User-agent: |
KMail/4.11.2 (Linux/3.11.0-14-generic; KDE/4.11.2; x86_64; ; ) |
* 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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [PATCH 4/5] eww: Add tool bar support.,
Rüdiger Sonderfeld <=