;; Is it me, or the slave mode of mplayer is ugly to parse? Did I miss
;; something?
+(defcustom media/mplayer/executable "mplayer"
+ "The name of the executable."
+ :type 'string
+ :group 'media)
+
(defcustom media/mplayer/args nil
"List of arguments for mplayer."
:type 'list
:type 'float
:group 'media)
+(defcustom media/mplayer/capture-dir nil
+ "States where to save the dumped streams."
+ :type 'string
+ :group 'media)
+
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; It is impossible to tell mplayer to send information every time dt
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(setq media/mplayer/protocol-regexp
+ "^\\(AUDIO:\\|Exiting...\\|Starting\\|ANS_LENGTH\\|ANS_TIME_POSITION\\|Cache fill:\\|ICY Info:\\) *\\(.*\\)$")
+
(defun media/mplayer/filter-subfunctions (cmd param)
;; (unless (string= cmd "A:")
;; (message "cmd=%s param=%s" cmd param)
(assoc cmd
'(
-
- ;; ----------------------------------------
-
("ICY Info:"
;; (message "ICY Info \"%s\"" param)
(setq media/current-song-in-stream
(let ((s (match-string 1 param)))
- (concat (if (string= s "") "<no title>" s)
+ (concat (if (string= s "")
+ "<no title>"
+ (encode-coding-string s 'latin-1)
+ ;; s
+ )
" | "
(format-time-string "%a %b %d %H:%M:%S")
)
)
)
+ ;; If we did not parse it properly, reset the
+ ;; song name, and display the ICY string raw
(setq media/current-song-in-stream nil)
+ (message "ICY Info \"%s\"" param)
+ )
- ;; If we did not parse it properly, show it
- (message "ICY Info \"%s\"" param))
+ (when media/mplayer/capture-dir
+ (let ((coding-system-for-write 'raw-text-unix))
+ (with-temp-buffer
+ (insert
+ (concat media/current-song-in-stream "\n"))
+ (write-region nil nil (concat media/mplayer/capture-dir "/log") t))))
(if (and media/current-song-in-stream media/current-information)
(media/show-current-information))
;; ----------------------------------------
("Starting"
- (media/mplayer/write "get_time_length\n"))
+ (media/mplayer/write "get_time_length\n")
+ (when media/mplayer/capture-dir
+ (media/mplayer/write "capturing\n")
+ ;; (message "Capturing stream in %s" media/mplayer/capture-dir)
+ )
+ )
;; ----------------------------------------
(string-match "\\(.*\\)[\n\r]+" media/mplayer/buffer start))
(setq start (1+ (match-end 1)))
(let ((line (match-string 1 media/mplayer/buffer)))
- (when (string-match "^\\(AUDIO:\\|Exiting...\\|Starting\\|ANS_LENGTH\\|ANS_TIME_POSITION\\|Cache fill:\\|ICY Info:\\) *\\(.*\\)$" line)
+ (when (string-match media/mplayer/protocol-regexp line)
(media/mplayer/filter-subfunctions (match-string 1 line) (match-string 2 line))))
)
(setq media/mplayer/buffer (substring media/mplayer/buffer start)))
media/song-current-time nil
media/mplayer/cumulated-duration 0
media/mplayer/last-current-time nil
- ))
+ )
+)
(defun media/api/cleanup () "Called when killing the application's buffer"
(when media/mplayer/process
(apply
'start-process
(append
- '("mplayer" nil "mplayer" "-slave" "-quiet")
+ `("mplayer" nil ,media/mplayer/executable "-slave" "-quiet")
media/mplayer/args
- (if (string-match "\\(asx\\|m3u\\|pls\\|ram\\)$" media/mplayer/url)
+ (when (string-match "\\(asx\\|m3u\\|pls\\|ram\\)$" media/mplayer/url)
+ (if media/mplayer/capture-dir
+ (list "-dumpfile"
+ (concat media/mplayer/capture-dir
+ "/"
+ (replace-regexp-in-string "[^a-zA-Z0-9\.]" "_" media/mplayer/url)
+ (format-time-string "-%Y-%m-%d-%H:%M:%S"))
+ "-capture"
+ "-playlist"
+ )
(list "-playlist"))
- (list (replace-regexp-in-string "^file://" "" media/mplayer/url))))
+ )
+ (list (replace-regexp-in-string "^file://" "" media/mplayer/url)))
+ )
media/mplayer/exit-type 'unknown
media/mplayer/paused nil
media/song-duration nil
(process-kill-without-query media/mplayer/process)
(media/mplayer/start-timing-requests)
(media/mplayer/write "get_time_pos\n")
-
)
(defun media/api/stop () (interactive)