- (if (string-match "StreamTitle='\\([^;]*\\)';" param)
- (setq media/mplayer/current-stream-song (match-string 1 param))
- (message "ICY Info \"%s\"" param)))
+ (progn
+ (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 nil)
+ (message "ICY Info \"%s\"" param))
+ (if (and media/current-song-in-stream media/current-information)
+ (media/show-current-information)))
+ )