summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorPo Lu <luangruo@yahoo.com>2021-11-05 18:53:50 +0800
committerLars Ingebrigtsen <larsi@gnus.org>2021-11-07 02:59:41 +0100
commitd97718c87c7c585825f23c40b8be4643bbadacea (patch)
tree3d8cb6ec3b73d61de530dc84b4278ce4d1e85735 /lisp
parent32ec485e5cc728c050e5fbe45333157be550f0d6 (diff)
downloademacs-d97718c87c7c585825f23c40b8be4643bbadacea.tar.gz
emacs-d97718c87c7c585825f23c40b8be4643bbadacea.tar.bz2
emacs-d97718c87c7c585825f23c40b8be4643bbadacea.zip
Add a menu to xwidget-webkit
* lisp/xwidget.el: Add a menu to xwidget-webkit-mode-map.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/xwidget.el19
1 files changed, 19 insertions, 0 deletions
diff --git a/lisp/xwidget.el b/lisp/xwidget.el
index a43ee7be3c2..0e4e15799de 100644
--- a/lisp/xwidget.el
+++ b/lisp/xwidget.el
@@ -173,6 +173,25 @@ in `split-window-right' with a new xwidget webkit session."
map)
"Keymap for `xwidget-webkit-mode'.")
+(easy-menu-define nil xwidget-webkit-mode-map "Xwidget WebKit menu."
+ (list "Xwidget WebKit"
+ ["Browse URL" xwidget-webkit-browse-url
+ :active t
+ :help "Prompt for a URL, then instruct WebKit to browse it"]
+ ["Back" xwidget-webkit-back t]
+ ["Forward" xwidget-webkit-forward t]
+ ["Reload" xwidget-webkit-reload t]
+ ["Insert String" xwidget-webkit-insert-string
+ :active t
+ :help "Insert a string into the currently active field"]
+ ["Zoom In" xwidget-webkit-zoom-in t]
+ ["Zoom Out" xwidget-webkit-zoom-out t]
+ ["Edit Mode" xwidget-webkit-edit-mode
+ :active t
+ :style toggle
+ :selected xwidget-webkit-edit-mode
+ :help "Send self inserting characters to the WebKit widget"]))
+
(defun xwidget-webkit-zoom-in ()
"Increase webkit view zoom factor."
(interactive nil xwidget-webkit-mode)