[emms-help] Re: Some bugs due to new features

[Lucas Bonnet]

Answer From Willian, private mail (I suspect Gmail) :
My answers will follow in the next post.

On 8/21/05, Lucas Bonnet <address@hidden> wrote:
> 
> Hello !

Hi!

> I use (emms-setup 'cvs) (of course !), and I noticed a few bugs since
> the introduction of new features (lyrics & playing-time).

> First bug, I don't get total time for .ogg files. If there's no easy way
> to get it, wouldn't it be simpler to just deactivate it ? Same for
> streams :)

I thought i'd fixed it in last revision. Apparently my consideration
was not complete...(i didn't have any .ogg files on my disk.) Try this
redefinition of `emms-playing-time-display', see if it fixes it. (I
haven't tried streams yet :-)

(defun emms-playing-time-display ()
  "Display playing time on the mode line."
  (setq emms-playing-time (1+ emms-playing-time))
  (let* ((min (/ emms-playing-time 60))
         (sec (% emms-playing-time 60))
         ;; How to adapt `emms-info-format-info' here?
         (struct
          (emms-info-get (emms-playlist-current-track)))
         (total-min-only
          (when struct (emms-info-playing-time-min struct)))
         (total-sec-only
          (when struct (emms-info-playing-time-sec struct))))
    (setq emms-playing-time-string
          (replace-regexp-in-string
           " " "0"
           (if (or emms-playing-time-display-short-p
                   ;; Cann't get total time info.
                   (not total-min-only)
                   (not total-sec-only))
               (format "%2d:%2d" min sec)
             (format "%2d:%2d/%2s:%2s"
                     min sec total-min-only total-sec-only))))
    (force-mode-line-update)))

> Second bug, apparently triggered when I play the first track of my EMMS
> session :

[...]

This bug implies that it has found an incorrect lyric file. Here's
a redefinition of `emms-lyric-start':

(defun emms-lyric-start ()
  "Start displaying lryics."
  (setq emms-lyric-start-time (current-time)
        emms-lyric-pause-time nil
        emms-lyric-elapsed-time 0)
  (when (and emms-lyric-display-p
             (let ((file (cdaddr (emms-playlist-current-track))))
               (emms-lyric-read-file
                (replace-regexp-in-string
                 (file-name-extension file) "lrc" file))))
    (emms-lyric-set-timer)))


ps. I have some problem here to connect cvs. And things will turn fine
in days.

-----
William