From 857229ca8fa7f058e956cf9dcfbae19d23f2e50b Mon Sep 17 00:00:00 2001 From: Yoni Rabkin Date: Tue, 2 Dec 2014 15:01:39 -0500 Subject: Add and use variable `emms-player-base-format-list'. This variable holds the set of common formats that most modern players support. A new player definition should use this base list and add formats specific to the new player in the player definition file. --- lisp/emms.el | 13 ++++++++++--- 1 file changed, 10 insertions(+), 3 deletions(-) (limited to 'lisp/emms.el') diff --git a/lisp/emms.el b/lisp/emms.el index 148477a..253cfd2 100644 --- a/lisp/emms.el +++ b/lisp/emms.el @@ -316,9 +316,9 @@ This also disables any read-onliness of the current buffer." (emms-playlist-current-clear)) (let ((emms-source-old-buffer (or emms-source-old-buffer (current-buffer)))) - (with-current-buffer emms-playlist-buffer - (let ((inhibit-read-only t)) - ,@body))))) + (with-current-buffer emms-playlist-buffer + (let ((inhibit-read-only t)) + ,@body))))) (put 'with-current-emms-playlist 'lisp-indent-function 0) (put 'with-current-emms-playlist 'edebug-form-spec '(body)) @@ -358,6 +358,13 @@ Point will not be restored afterward." (put 'emms-walk-tracks 'lisp-indent-function 0) (put 'emms-walk-tracks 'edebug-form-spec '(body)) +(defvar emms-player-base-format-list + '("ogg" "mp3" "wav" "mpg" "mpeg" "wmv" "wma" + "mov" "avi" "divx" "ogm" "ogv" "asf" "mkv" + "rm" "rmvb" "mp4" "flac" "vob" "m4a" "ape" + "flv" "webm" "aif") + "A list of common formats which player definitions can use.") + ;;; User Interface -- cgit v1.2.3