diff options
Diffstat (limited to 'lisp/xwidget-screencast.el')
| -rw-r--r-- | lisp/xwidget-screencast.el | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/lisp/xwidget-screencast.el b/lisp/xwidget-screencast.el new file mode 100644 index 00000000000..f85dbe8f247 --- /dev/null +++ b/lisp/xwidget-screencast.el @@ -0,0 +1,32 @@ +;;(require 'screencast) +(require 'xwidget) +(defconst xwidget-screencast-webkit '("Hello, and welcome to a + short demo of the Emacs xwidget branch, and the Webkit + integration it provides." n + "Xwidgets are toolkit widgets that behave like images in an + Emacs buffer. Except they are actual widgets, so you can + interact with them." n + "There are several, but people seem to fancy the webkit the most so lets have a look!" + (insert "some text") + (xwidget-insert (point-min) 'webkit-osr "webkit-osr" 500 1000 5) + n + "Okay so thats an actual webkit instance in an Emacs buffer! " n + "Mouse-overs work" n + "Mouse-clicks work" n + (split-window-vertically) + "You can split the buffer and scroll the windows separately, as + usual in Emacs. This is however not so usual in the browser + world for some reason." n + "So, can you use the xwidget branch as your main Emacs instance?"n + "Not yet, its still not mature. There are many tricky issues + left. That being said, there are many simple tasks to help out + with also if you like!" )) + + +(defun xwidget-screencast(&optional arg) + "Displays the screencast for xwidgets." + (interactive "P") + (apply (if arg + 'screencast-record + 'screencast) + xwidget-screencast-webkit "xvidgets" 1 ())) |