X-Git-Url: https://www.fleuret.org/cgi-bin/gitweb/gitweb.cgi?p=elisp.git;a=blobdiff_plain;f=media-mplayer.el;h=46acbb30afc4b95c7684b395d262b757f12ae020;hp=c0df300aae28f335db0a072c85507b75ba0317b4;hb=HEAD;hpb=aa1435b5ae3a849522f783870cb9c393a9549d9b

diff --git a/media-mplayer.el b/media-mplayer.el
index c0df300..46acbb3 100644
--- a/media-mplayer.el
+++ b/media-mplayer.el
@@ -94,8 +94,8 @@ load Emacs less. Nil means no timing."
                               (let ((s (match-string 1 param)))
                                 (concat (if (string= s "")
                                             "<no title>"
-                                          ;; (encode-coding-string s 'latin-1)
-                                          s
+                                          (encode-coding-string s 'latin-1)
+                                          ;; s
                                           )
                                         " | "
                                         (format-time-string "%a %b %d %H:%M:%S")
@@ -109,6 +109,13 @@ load Emacs less. Nil means no timing."
                       (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))
                     )