From: Po Lu <luangruo@yahoo.com>
Date: Fri, 5 Nov 2021 10:53:50 +0000 (+0800)
Subject: Add a menu to xwidget-webkit
X-Git-Tag: emacs-29.0.90~3671^2~137
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d97718c87c7c585825f23c40b8be4643bbadacea;p=emacs.git

Add a menu to xwidget-webkit

* lisp/xwidget.el: Add a menu to xwidget-webkit-mode-map.
---

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)