mirrors
/
ambevar-dotfiles
mirror of https://gitlab.com/ambrevar/dotfiles/
1
0
Fork 0
Code Issues Releases Wiki Activity

Emms: Fix playlist display on tracks without artist or title

master
Pierre Neidhardt 2018-04-01 18:07:20 +05:30
parent ddf12595da
commit c375307e5b
1 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
.emacs.d/lisp/init-emms.el
View File

@ -92,14 +92,17 @@ is currently playing."
(defun ambrevar/emms-artist-album-track-and-title-format (bdata fmt)
(concat
"%i"
"%a - "
(let ((album (emms-browser-format-elem fmt "A")))
(if album "%A - " ""))
(let ((track (emms-browser-format-elem fmt "T")))
(if (and track (not (string= track "0")))
"%T. "
""))
"%t"))
(let ((artist (emms-browser-format-elem fmt "a")))
(if (not artist)
"%n" ; If unknown, display the filename.
"%a - "
(let ((album (emms-browser-format-elem fmt "A")))
(if album "%A - " ""))
(let ((track (emms-browser-format-elem fmt "T")))
(if (and track (not (string= track "0")))
"%T. "
""))
"%t"))))
(setq emms-browser-playlist-info-title-format 'ambrevar/emms-artist-album-track-and-title-format)
(provide 'init-emms)