diff options
author | Po Lu <luangruo@yahoo.com> | 2021-11-05 18:53:50 +0800 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-11-07 02:59:41 +0100 |
commit | d97718c87c7c585825f23c40b8be4643bbadacea (patch) | |
tree | 3d8cb6ec3b73d61de530dc84b4278ce4d1e85735 /lisp | |
parent | 32ec485e5cc728c050e5fbe45333157be550f0d6 (diff) | |
download | emacs-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.el | 19 |
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) |