Custom EMMS track info to show album, artist, title and duration in p…

…laylist.

dot-emacs

@@ -357,6 +357,23 @@
 (emms-mode-line 1)
 (emms-playing-time 1)
 
+; Show "Album - Artist - Track name [Duration]" as track info
+(defun my-emms-info-track-description (track)
+  "Return a description of the current track, including album,
+  artist, track name and total duration if available."
+  (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))
+        (alb  (emms-track-get track 'info-album))
+        (art  (emms-track-get track 'info-artist))
+        (tit  (emms-track-get track 'info-title)))
+    (if (and alb art tit)
+        (cond ((and pmin psec) (format "%s - %s - %s [%s:%s]" alb art tit pmin psec))
+              (ptot (format  "%s - %s - %s [%s:%s]" alb art tit (/ ptot 60) (% ptot 60)))
+              (t (emms-track-simple-description track)))
+        (emms-track-simple-description track))))
+(setq emms-track-description-function 'my-emms-info-track-description)
+
 ; Look for lyrics on Google
 (defun emms-google-for-lyrics ()
   (interactive)