;; ----------------------------------------
("ICY Info:" .
- (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)))
+ )
;; ----------------------------------------
(let ((line (match-string 1 media/mplayer/buffer)))
(when (string-match "^\\(AUDIO:\\|Exiting...\\|Starting\\|ANS_LENGTH\\|ANS_TIME_POSITION\\|Cache fill:\\|ICY Info:\\) *\\(.*\\)$" line)
(media/mplayer/filter-subfunctions (match-string 1 line) (match-string 2 line))))
-
- (when (and media/mplayer/current-stream-song media/current-information)
- (message "Now in stream (%s) \"%s\""
- (current-time-string) media/mplayer/current-stream-song)
- (setq media/mplayer/current-stream-song nil))
)
(setq media/mplayer/buffer (substring media/mplayer/buffer start)))
)
media/mplayer/paused nil
media/song-duration nil
media/song-current-time nil
- media/mplayer/current-stream-song nil
media/mplayer/cumulated-duration 0
media/mplayer/last-current-time nil
))