Cosmetics.

[elisp.git] / media-mplayer.el

diff --git a/media-mplayer.el b/media-mplayer.el
index fbcd87a..77f1516 100644 (file)
--- a/media-mplayer.el
+++ b/media-mplayer.el
@@ -81,8 +81,15 @@ load Emacs less. Nil means no timing."
 
              ("ICY Info:" .
               (progn
+                ;; (message "ICY Info \"%s\"" param)
                 (if (string-match "StreamTitle='\\([^;]*\\)';" param)
-                    (setq media/current-song-in-stream (concat (match-string 1 param) " | " (current-time-string)))
+                    (setq media/current-song-in-stream
+                          (let ((s (match-string 1 param)))
+                            (concat (if (string= s "") "<no title>" s)
+                                    " | "
+                                    ;; (current-time-string)
+                                    (format-time-string "%a %b %d %H:%M:%S")
+                                    )))
                   (setq media/current-song-in-stream nil)
                   (message "ICY Info \"%s\"" param))
                 (if (and media/current-song-in-stream media/current-information)