diff options
| author | Yoni Rabkin <yoni@rabkins.net> | 2008-10-02 18:53:53 +0300 |
|---|---|---|
| committer | Yoni Rabkin <yoni@rabkins.net> | 2008-10-02 18:53:53 +0300 |
| commit | 51bcbfc68ce06e022e727f4e191d5d66f54ce618 (patch) | |
| tree | 1999eaa6c90a468e882eed9047580010923caa58 | |
| parent | 8fce904cf69a3e4545e77002195cc4613f935736 (diff) | |
* emms-player-vlc.el: Add support for playlists.
Signed-off-by: Yoni Rabkin <yoni@rabkins.net>
| -rw-r--r-- | lisp/emms-player-vlc.el | 22 |
1 files 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 |