Handle covers with different file extensions

Covers are can now have different file extensions.  See
emms-browser-covers-file-extensions.  The first file from
emms-browser--covers-filename, which is build when needed, is used.

1 files changed, 34 insertions, 5 deletions

diff --git a/lisp/emms-browser.el b/lisp/emms-browser.el
index 271ac73..b6d00c4 100644
--- a/lisp/emms-browser.el
+++ b/lisp/emms-browser.el
@@ -332,7 +332,7 @@ view with lots of 1-track elements."
   :type 'function)
 
 (defcustom emms-browser-covers
-  '("cover_small.jpg" "cover_med.jpg" "cover_large.jpg")
+  '("cover_small" "cover_med" "cover_large")
   "*Control how cover images are found.
 Can be either a list of small, medium and large images (large
 currently not used), a function which takes a directory and one
@@ -341,6 +341,17 @@ path to the cover, or nil to turn off cover loading."
   :group 'emms-browser
   :type '(choice list function boolean))
 
+(defcustom emms-browser-covers-file-extensions
+  '("jpg" "jpeg" "png" "gif" "bmp")
+  "*File extensions accepted for `emms-browser-covers'.
+Should be a list of extensions as strings.  Should be set before
+emms-browser is required."
+  :group 'emms-browser
+  :type '(repeat (string :tag "Extension")))
+
+(defconst emms-browser--covers-filename nil
+  "*List of potential cover art names.")
+
 (defcustom emms-browser-default-covers nil
   "*A list of default images to use if a cover isn't found."
   :group 'emms-browser
@@ -1599,6 +1610,19 @@ included."
 ;; Album covers
 ;; --------------------------------------------------
 
+(defun emms-browser--build-cover-filename ()
+  "Build `emms-browser--covers-filename'.
+
+Based on from `emms-browser-covers' and
+`emms-browser-covers-file-extensions'."
+  (setq emms-browser--covers-filename
+        (mapcar (lambda (cover)
+                  (if (file-name-extension cover)
+                      (list cover)
+                    (mapcar (lambda (ext) (concat cover "." ext))
+                            emms-browser-covers-file-extensions)))
+                emms-browser-covers)))
+
 (defun emms-browser-get-cover-from-album (bdata &optional size)
   (assert (eq (emms-browser-bdata-type bdata) 'info-album))
   (let* ((track1data (emms-browser-bdata-data bdata))
@@ -1608,6 +1632,8 @@ included."
 
 (defun emms-browser-get-cover-from-path (path &optional size)
   "Return a cover filename, if it exists."
+  (unless emms-browser--covers-filename
+    (emms-browser--build-cover-filename))
   (unless size
     (setq size 'medium))
   (let* ((size-idx (cond
@@ -1620,10 +1646,13 @@ included."
             (funcall emms-browser-covers (file-name-directory path) size))
            ((and (listp emms-browser-covers)
                  (nth size-idx emms-browser-covers))
-            (concat (file-name-directory path)
-                    (nth size-idx emms-browser-covers))))))
-    (if (and cover
-             (file-readable-p cover))
+            (car (delq nil
+                       (mapcar (lambda (cover)
+                                 (let ((coverpath
+                                        (concat (file-name-directory path) cover)))
+                                   (and (file-exists-p coverpath) coverpath)))
+                               (nth size-idx emms-browser--covers-filename))))))))
+    (if (and cover (file-readable-p cover))
         cover
       ;; no cover found, use default
       (when emms-browser-default-covers