aboutsummaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/emms-browser.el13
1 files changed, 8 insertions, 5 deletions
diff --git a/lisp/emms-browser.el b/lisp/emms-browser.el
index 23b1495..94f0072 100644
--- a/lisp/emms-browser.el
+++ b/lisp/emms-browser.el
@@ -1753,11 +1753,14 @@ If > album level, most of the track data will not make sense."
("t" . ,(emms-track-get track 'info-title))
("D" . ,(emms-browser-disc-number track))
("T" . ,(emms-browser-track-number track))
- ("d" . ,(emms-browser-track-duration track))
- ("cS" . ,(emms-browser-get-cover-str path 'small))
- ("cM" . ,(emms-browser-get-cover-str path 'medium))
- ("cL" . ,(emms-browser-get-cover-str path 'large))))
- str)
+ ("d" . ,(emms-browser-track-duration track))))
+ str)
+ (when (equal type 'info-album)
+ (setq format-choices (append format-choices
+ `(("cS" . ,(emms-browser-get-cover-str path 'small))
+ ("cM" . ,(emms-browser-get-cover-str path 'medium))
+ ("cL" . ,(emms-browser-get-cover-str path 'large))))))
+
(when (functionp format)
(setq format (funcall format bdata format-choices)))