aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorYoni Rabkin <yoni@rabkins.net>2017-04-17 16:44:48 -0400
committerYoni Rabkin <yoni@rabkins.net>2017-04-17 16:44:48 -0400
commit6acda00f9d428516be4e8d407aefd51838f9395b (patch)
tree2a598c1b5f6701c358ca0b4edeedf1b70f3c7548
parent0cd9ea411391c9049f4fbcd5d9164ba11b73fe56 (diff)
* lisp/emms-browser.el: Cover only on info album.
Get the cover only when the album info is requested. Small patch by Cedric Chepied <cedric.chepied@gmail.com>.
-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)))