procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add a menu to xwidget-webkit

Browse source 
* lisp/xwidget.el: Add a menu to xwidget-webkit-mode-map.
This commit is contained in:
Po Lu 2021-11-05 18:53:50 +08:00 • committed by Lars Ingebrigtsen
parent 32ec485e5c
commit d97718c87c
1 changed files with 19 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
lisp/xwidget.el
View file

@ -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)