From 51bcbfc68ce06e022e727f4e191d5d66f54ce618 Mon Sep 17 00:00:00 2001 From: Yoni Rabkin Date: Thu, 2 Oct 2008 18:53:53 +0300 Subject: * emms-player-vlc.el: Add support for playlists. Signed-off-by: Yoni Rabkin --- lisp/emms-player-vlc.el | 22 +++++++++++++--------- 1 file changed, 13 insertions(+), 9 deletions(-) diff --git a/lisp/emms-player-vlc.el b/lisp/emms-player-vlc.el index 11a36e7..1722e3e 100644 --- a/lisp/emms-player-vlc.el +++ b/lisp/emms-player-vlc.el @@ -31,10 +31,14 @@ ;; in order to accomodate VLC's particular idioms. (define-emms-simple-player vlc '(file url) (concat "\\`\\(http\\|mms\\)://\\|" - (emms-player-simple-regexp - "ogg" "mp3" "wav" "mpg" "mpeg" "wmv" "wma" - "mov" "avi" "divx" "ogm" "asf" "mkv" - "rm" "rmvb" "mp4" "flac" "vob" "m4a" "ape")) + (emms-player-simple-regexp + "ogg" "mp3" "wav" "mpg" "mpeg" "wmv" "wma" + "mov" "avi" "divx" "ogm" "asf" "mkv" + "rm" "rmvb" "mp4" "flac" "vob" "m4a" "ape")) + "vlc" "--intf" "rc") ; these are never used + +(define-emms-simple-player vlc-playlist '(streamlist) + "\\`http://" "vlc" "--intf" "rc") ; these are never used ;; (kludge) By default, VLC does not quit after finishing to play a @@ -44,11 +48,11 @@ (defun emms-player-vlc-start (track) "Cause vlc to play TRACK." (let ((process (apply 'start-process - emms-player-simple-process-name - nil - "vlc" - ;; splice in params here - (append '("vlc" "--intf" "rc") + emms-player-simple-process-name + nil + "vlc" + ;; splice in params here + (append '("vlc" "--intf" "rc") (list (emms-track-name track)) '("vlc:quit"))))) ;; add a sentinel for signaling termination -- cgit v1.2.3