X-Git-Url: https://www.fleuret.org/cgi-bin/gitweb/gitweb.cgi?p=elisp.git;a=blobdiff_plain;f=media-mplayer.el;h=77f15169f047bc6316a43fc4e463a976d6cce424;hp=fbcd87aa71e756c1083375863027790f6d1478ed;hb=1ecbbd03909c6f7dda43117d8e8054a39427cb61;hpb=6c647377c97541756bf9d9d7e350a156078ba997

diff --git a/media-mplayer.el b/media-mplayer.el
index fbcd87a..77f1516 100644
--- 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)