- (progn
- ;; param = "44100 Hz, 2 ch, s16le, 128.0 kbit/9.07% (ratio: 16000->176400)"
- (when (string-match "^\\([0-9]+\\) Hz, \\([0-9]+\\) ch.* \\([0-9.]+\\) kbit"
- param)
- (setq media/current-information
- (list media/mplayer/url
- (string-to-number (match-string 1 param))
- (string-to-number (match-string 2 param))
- (string-to-number (match-string 3 param))))
- )
- (run-hooks 'media/play-hook)
- ))