[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 "")
|
||||
'face 'emms-browser-performer-face))
|
||||
(title (propertize (emms-track-get track 'info-title "")
|
||||
'face 'emms-browser-track-face))
|
||||
(note (emms-track-get track 'info-note "")))
|
||||
(let ((main-description (if (not (seq-empty-p title))
|
||||
'face 'emms-browser-track-face)))
|
||||
(if (not (seq-empty-p title))
|
||||
(cond
|
||||
((and (not (seq-empty-p composer))
|
||||
(not (seq-empty-p performer)))
|
||||
|
@ -141,11 +140,7 @@ This function can be used as a value for `emms-track-description-function’."
|
|||
(t
|
||||
title))
|
||||
(string-remove-prefix (expand-file-name emms-source-file-default-directory)
|
||||
(emms-track-simple-description track))))
|
||||
(note (if (seq-empty-p note)
|
||||
""
|
||||
(concat " [" note "]"))))
|
||||
(concat main-description note))))
|
||||
(emms-track-simple-description track)))))
|
||||
|
||||
(setq emms-track-description-function
|
||||
'db/emms-track-description)
|
||||
|
|
Loading…
Reference in New Issue