dbo/.emacs.d
dbo
/
.emacs.d
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

[EMMS] Include album in track description if available

This commit is contained in:
Daniel - 2019-06-09 09:24:12 +02:00
parent 57198f1e1a
commit 076fc384db
No known key found for this signature in database
GPG Key ID: 1C7071A75BB72D64
1 changed files with 14 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
site-lisp/db-emms.el
View File

@ -67,23 +67,21 @@ This function can be used as a value for `emms-track-description-function’."
(performer (propertize (emms-track-get track 'info-performer "") (performer (propertize (emms-track-get track 'info-performer "")
'face 'emms-browser-performer-face)) 'face 'emms-browser-performer-face))
(title (propertize (emms-track-get track 'info-title "") (title (propertize (emms-track-get track 'info-title "")
'face 'emms-browser-track-face))) 'face 'emms-browser-track-face))
(album (propertize (emms-track-get track 'info-album "")
'face 'emms-browser-album-face)))
(if (not (seq-empty-p title)) (if (not (seq-empty-p title))
(cond (concat (format "“%s”" title)
((not (seq-empty-p composer)) (cond ((not (seq-empty-p composer))
(if (seq-empty-p performer) (if (seq-empty-p performer)
(format "“%s” by %s" title composer) (format " by %s" composer)
(if (string= composer performer) (if (string= composer performer)
(format "“%s” by %s" (format " by %s" composer)
title composer) (format " by %s, performed by %s" composer performer))))
(format "“%s” by %s, performed by %s" ((not (seq-empty-p artist))
title (format " by %s" artist)))
composer (and (not (seq-empty-p album))
performer)))) (format " (%s)" album)))
((not (seq-empty-p artist))
(format "“%s” by %s" title artist))
(t
title))
(string-remove-prefix (expand-file-name emms-source-file-default-directory) (string-remove-prefix (expand-file-name emms-source-file-default-directory)
(emms-track-simple-description track))))) (emms-track-simple-description track)))))