[EMMS] Simplify description of current track
This commit is contained in:
parent
2cd264d7ef
commit
2265f89bad
|
@ -123,9 +123,8 @@ 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)))
|
||||||
(note (emms-track-get track 'info-note "")))
|
(if (not (seq-empty-p title))
|
||||||
(let ((main-description (if (not (seq-empty-p title))
|
|
||||||
(cond
|
(cond
|
||||||
((and (not (seq-empty-p composer))
|
((and (not (seq-empty-p composer))
|
||||||
(not (seq-empty-p performer)))
|
(not (seq-empty-p performer)))
|
||||||
|
@ -141,11 +140,7 @@ This function can be used as a value for `emms-track-description-function’."
|
||||||
(t
|
(t
|
||||||
title))
|
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)))))
|
||||||
(note (if (seq-empty-p note)
|
|
||||||
""
|
|
||||||
(concat " [" note "]"))))
|
|
||||||
(concat main-description note))))
|
|
||||||
|
|
||||||
(setq emms-track-description-function
|
(setq emms-track-description-function
|
||||||
'db/emms-track-description)
|
'db/emms-track-description)
|
||||||
|
|
Loading…
Reference in New Issue