(let* ((artist (emus-track-artist track))
(album (emus-track-album track))
(title (emus-track-title track))
(let* ((artist (emus-track-artist track))
(album (emus-track-album track))
(title (emus-track-title track))
- (help-str (format "mouse-1, RET: Play '%.30s' (%.20s)" title artist)))
+ (help-str (format "mouse-1, RET: Play '%.30s' (%.20s)" title artist))
+ (field (intern album))) ;Allows easy jumping between albums with cursor.
(unless (equal (emus-track-album prev-track) album)
(insert-text-button
(propertize (concat " " album) 'face 'emus-album)
'action #'emus--click-track
'follow-link t
'help-echo help-str
(unless (equal (emus-track-album prev-track) album)
(insert-text-button
(propertize (concat " " album) 'face 'emus-album)
'action #'emus--click-track
'follow-link t
'help-echo help-str