[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[bongo-devel] oggdec backend
From: |
Ivan Kanis |
Subject: |
[bongo-devel] oggdec backend |
Date: |
Thu, 15 Nov 2007 22:13:25 +0100 |
User-agent: |
Gnus/5.11 (Gnus v5.11) Emacs/22.1 (gnu/linux) |
Hello,
Here is a new backend for a Windows program called oggdec.
On a side note, the VLC backend is busted on Windows. I think that
using socket would fix it. I do not have the time or energy to fix it.
(define-bongo-backend oggdec
:pretty-name "Oggdec"
:constructor 'bongo-start-oggdec-player
:matcher '(local-file "ogg")
:extra-program-arguments '("-p"))
(defun bongo-start-oggdec-player (file-name &optional extra-arguments)
(let* ((arguments (append (bongo-evaluate-program-arguments
bongo-oggdec-extra-arguments)
extra-arguments
(list (replace-regexp-in-string "/" "\\\\"
file-name))))
(process (apply 'start-process "bongo-oggdec" nil
bongo-oggdec-program-name arguments))
(player (list 'oggdec
(cons 'process process)
(cons 'file-name file-name)
(cons 'buffer (current-buffer))
(cons 'interactive nil)
(cons 'pausing-supported nil)
(cons 'seeking-supported nil))))
(prog1 player
(set-process-sentinel process 'bongo-default-player-process-sentinel)
(bongo-process-put process 'bongo-player player))))
--
Ivan
http://kanis.fr
"The doctors told me I would never walk again, but my mother told me
I would, so I believed my mother."
-- Wilma Rudolph
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [bongo-devel] oggdec backend,
Ivan Kanis <=