diff options
| -rw-r--r-- | emms.el | 11 |
1 files changed, 6 insertions, 5 deletions
@@ -914,11 +914,12 @@ ignore this." (erase-buffer) (insert "#EXTM3U\n") (mapc (lambda (track) - (let ((info (emms-info-get track))) - (insert "#EXTINF:") - (insert (emms-info-playing-time info) ",") - (insert (emms-info-artist info) " - " (emms-info-title info) "\n") - (insert (emms-track-get track 'name) "\n"))) + (let ((time (or (emms-track-get track 'info-mtime) "")) + (artist (emms-track-get track 'info-artist)) + (title (emms-track-get track 'info-title)) + (name (emms-track-get track 'name))) + (insert (format "#EXTINF: %s,%s - %s\n%s\n" + time artist title name)))) tracklist) (save-buffer) (kill-buffer (current-buffer))))) |