Re: video glyphs
I need to setup my gnus again and allow it to play it like that
-----Original Message-----
From: Zajcev Evgeny <zevlg(a)yandex.ru>
Subj: video glyphs
Date: Fri 5 Dec 2008 5:59
Size: 1K
To: XEmacs Beta <xemacs-beta(a)xemacs.org>; SXEmacs devel
<sxemacs-devel(a)sxemacs.org>
Hey! I just discovered interesting opportunity in (S)XEmacs. That is
video glyphs, i.e. glyphs running video inside. Just try out this
code:
(defun lg-video-glyph (file &optional w h)
"Create video glyph to play FILE.
Optionally you can specify width and height by passing W and H args."
(let* ((gg (make-glyph [subwindow]))
(prc (start-process "mplayer" nil "mplayer"
"-wid" (int-to-string
(subwindow-xid
(glyph-image-instance gg)))
(expand-file-name file))))
(resize-subwindow
(glyph-image-instance gg) (or w 200) (or h 140))
(put gg 'mplayer-proc prc)
gg))
(setq gg (lg-video-glyph "~/crypt/video/kunfu-panda.mp4"))
(set-extent-end-glyph
(make-extent (point) (point))
gg)
than you are able to resize video glyph with sexp like this:
(resize-subwindow (glyph-image-instance gg) WIDTH HEIGHT)
Most interesting is that if you point the cursor inside that glyph you
can control mplayer as normal, i mean you can rewind, pause, change
volume, etc, and OSD works as well
thanks
--
lg
_______________________________________________
XEmacs-Beta mailing list
XEmacs-Beta(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-beta