aboutsummaryrefslogtreecommitdiff
path: root/lisp/emms-player-vlc.el
diff options
context:
space:
mode:
authorLucas Bonnet <lucas@rincevent.net>2010-06-29 09:03:34 +0200
committerLucas Bonnet <lucas@rincevent.net>2010-06-29 09:03:34 +0200
commitc92da9a0c269c046433c427caafb175cb250de94 (patch)
treecd581d263bcf972fa6487acd9f27235a710c9eec /lisp/emms-player-vlc.el
parentda9f87ffd68f7b63843da2910d94281b41f18984 (diff)
From: Dimitry Gashinsky <dimitry@gashinsky.com>
* emms-player-vlc.el (define-emms-simple-player): Change the command line arguments from two to one. * emms-player-vlc.el (emms-player-vlc-start): Use the variables that are defined earlier
Diffstat (limited to 'lisp/emms-player-vlc.el')
-rw-r--r--lisp/emms-player-vlc.el26
1 files changed, 13 insertions, 13 deletions
diff --git a/lisp/emms-player-vlc.el b/lisp/emms-player-vlc.el
index 34ddd25..08b0760 100644
--- a/lisp/emms-player-vlc.el
+++ b/lisp/emms-player-vlc.el
@@ -31,15 +31,15 @@
;; 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" "ogv" "asf" "mkv"
- "rm" "rmvb" "mp4" "flac" "vob" "m4a" "ape"))
- "vlc" "--intf" "rc") ; these are never used
+ (emms-player-simple-regexp
+ "ogg" "mp3" "wav" "mpg" "mpeg" "wmv" "wma"
+ "mov" "avi" "divx" "ogm" "ogv" "asf" "mkv"
+ "rm" "rmvb" "mp4" "flac" "vob" "m4a" "ape"))
+ "vlc" "--intf=rc")
(define-emms-simple-player vlc-playlist '(streamlist)
"\\`http://"
- "vlc" "--intf" "rc") ; these are never used
+ "vlc" "--intf=rc")
;; (kludge) By default, VLC does not quit after finishing to play a
;; track, so the player sentinel has no way of telling that the next
@@ -47,13 +47,13 @@
;; function and add a "quit" track which is invisible to Emms.
(defadvice emms-player-vlc-start (around quit-vlc-after-finish activate)
(let ((process (apply 'start-process
- emms-player-simple-process-name
- nil
- "vlc"
- ;; splice in params here
- (append '("vlc" "--intf" "rc")
- (list (emms-track-name (ad-get-arg 0)))
- '("vlc://quit")))))
+ emms-player-simple-process-name
+ nil
+ emms-player-vlc-command-name
+ ;; splice in params here
+ (append emms-player-vlc-parameters
+ (list (emms-track-name (ad-get-arg 0)))
+ '("vlc://quit")))))
;; add a sentinel for signaling termination
(set-process-sentinel process 'emms-player-simple-sentinel))
(emms-player-started emms-player-vlc))