diff options
author | Yoni Rabkin <yoni@rabkins.net> | 2017-04-17 16:44:48 -0400 |
---|---|---|
committer | Yoni Rabkin <yoni@rabkins.net> | 2017-04-17 16:44:48 -0400 |
commit | 6acda00f9d428516be4e8d407aefd51838f9395b (patch) | |
tree | 2a598c1b5f6701c358ca0b4edeedf1b70f3c7548 | |
parent | 0cd9ea411391c9049f4fbcd5d9164ba11b73fe56 (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.el | 13 |
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))) |