[emms-help] Improve your playlist-mode buffer!

[Lucas Bonnet]

Here's a little setup to add the display of time in the playlist-mode
buffer. Requires emms-standard, at least (not for Jorgen!).
Feel free to modify it.

Screenshot :
Simon Slator - Piano in the Rain [07:01]


;; Stolen and heavily adapted from TWB
(defun my-emms-info-track-description (track)
  "Return a description of the current track."
  (if (and (emms-track-get track 'info-artist)
           (emms-track-get track 'info-title))
      (let ((pmin (emms-track-get track 'info-playing-time-min))
            (psec (emms-track-get track 'info-playing-time-sec))
            (ptot (emms-track-get track 'info-playing-time))
            (art  (emms-track-get track 'info-artist))
            (tit  (emms-track-get track 'info-title)))
        (cond ((and pmin psec) (format "%s - %s [%02d:%02d]" art tit pmin psec))
              (ptot (format  "%s - %s [%02d:%02d]" art tit (/ ptot 60) (% ptot 
60)))
              (t (emms-track-simple-description track))))))

(setq emms-track-description-function 'my-emms-info-track-description)

-- 
Lucas