emacs/lisp/webkit.el

102 lines
4.0 KiB
EmacsLisp
Raw Normal View History

2022-06-19 14:13:36 -08:00
;; webkit.el
;;
;; This file is barely a thing.
;; It was taken from
;; https://raw.githubusercontent.com/emacksnotes/emacsnotes.wordpress.com/master/my-xwidget-menu.el
;; as a simple and painless way to embed webkit into an emacs window,
;; ideally for use in something...
(require 'xwidget)
(when
(featurep 'xwidget-internal)
(easy-menu-define my-xwidget-tools-menu nil "Menu for Xwidget Webkit."
`("Xwidget Webkit" :visible
(featurep 'xwidget-internal)
["Browse Url ..." xwidget-webkit-browse-url
:help "Ask xwidget-webkit to browse URL"]
["End Edit Textarea" xwidget-webkit-end-edit-textarea
:help "End editing of a webkit text area"]))
(easy-menu-add-item menu-bar-tools-menu nil
my-xwidget-tools-menu 'separator-net)
(easy-menu-define my-xwidget-menu
xwidget-webkit-mode-map "Menu for Xwidget Webkit."
'("Xwidget Webkit"
["Browse Url" xwidget-webkit-browse-url
:help "Ask xwidget-webkit to browse URL"]
["Reload" xwidget-webkit-reload
:help "Reload current url"]
["Back" xwidget-webkit-back
:help "Go back in history"]
"--"
["Insert String" xwidget-webkit-insert-string
:help "current webkit widget"]
["End Edit Textarea" xwidget-webkit-end-edit-textarea
:help "End editing of a webkit text area"]
"--"
["Scroll Forward" xwidget-webkit-scroll-forward
:help "Scroll webkit forwards"]
["Scroll Backward" xwidget-webkit-scroll-backward
:help "Scroll webkit backwards"]
"--"
["Scroll Up" xwidget-webkit-scroll-up
:help "Scroll webkit up"]
["Scroll Down" xwidget-webkit-scroll-down
:help "Scroll webkit down"]
"--"
["Scroll Top" xwidget-webkit-scroll-top
:help "Scroll webkit to the very top"]
["Scroll Bottom" xwidget-webkit-scroll-bottom
:help "Scroll webkit to the very bottom"]
"--"
["Zoom In" xwidget-webkit-zoom-in
:help "Increase webkit view zoom factor"]
["Zoom Out" xwidget-webkit-zoom-out
:help "Decrease webkit view zoom factor"]
"--"
["Fit Width" xwidget-webkit-fit-width
:help "Adjust width of webkit to window width"]
["Adjust Size" xwidget-webkit-adjust-size
:help "Manually set webkit size to width W, height H"]
["Adjust Size Dispatch" xwidget-webkit-adjust-size-dispatch
:help "Adjust size according to mode"]
["Adjust Size To Content" xwidget-webkit-adjust-size-to-content
:help "Adjust webkit to content size"]
"--"
["Copy Selection As Kill" xwidget-webkit-copy-selection-as-kill
:help "Get the webkit selection and put it on the kill-ring"]
["Current Url" xwidget-webkit-current-url
:help "Get the webkit url and place it on the kill-ring"]
"--"
["Show Element" xwidget-webkit-show-element
:help "Make webkit xwidget XW show a named element ELEMENT-SELECTOR"]
["Show Id Element" xwidget-webkit-show-id-element
:help "Make webkit xwidget XW show an id-element ELEMENT-ID"]
["Show Id Or Named Element" xwidget-webkit-show-id-or-named-element
:help "Make webkit xwidget XW show a name or element id ELEMENT-ID"]
["Show Named Element" xwidget-webkit-show-named-element
:help "Make webkit xwidget XW show a named element ELEMENT-NAME"]
"--"
["Cleanup" xwidget-cleanup
:help "Delete zombie xwidgets"]
["Event Handler" xwidget-event-handler
:help "Receive xwidget event"]
"--"
["Xwidget Webkit Mode" xwidget-webkit-mode :style toggle
:selected xwidget-webkit-mode
:help "Xwidget webkit view mode"])))
(add-hook 'xwidget-webkit-mode-hook
#'(lambda ()
(turn-off-line-numbers)
(scroll-bar-mode -1)
))
;; (setq browse-url-browser-function 'xwidget-webkit-browse-url)
;; (defun browse-url-default-browser (url &rest args)
;; "Override `browse-url-default-browser' to use `xwidget-webkit' URL ARGS."
;; (xwidget-webkit-browse-url url args))
(provide 'webkit)