From 6acda00f9d428516be4e8d407aefd51838f9395b Mon Sep 17 00:00:00 2001 From: Yoni Rabkin Date: Mon, 17 Apr 2017 16:44:48 -0400 Subject: * lisp/emms-browser.el: Cover only on info album. Get the cover only when the album info is requested. Small patch by Cedric Chepied . --- lisp/emms-browser.el | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) (limited to 'lisp') 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))) -- cgit v1.2.3