aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorYoni Rabkin <yoni@rabkins.net>2008-10-02 18:53:53 +0300
committerYoni Rabkin <yoni@rabkins.net>2008-10-02 18:53:53 +0300
commit51bcbfc68ce06e022e727f4e191d5d66f54ce618 (patch)
tree1999eaa6c90a468e882eed9047580010923caa58
parent8fce904cf69a3e4545e77002195cc4613f935736 (diff)
* emms-player-vlc.el: Add support for playlists.
Signed-off-by: Yoni Rabkin <yoni@rabkins.net>
-rw-r--r--lisp/emms-player-vlc.el22
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