From: David Thompson Date: Sun, 15 Feb 2015 18:55:01 +0000 (-0500) Subject: webvtt: Fix WebVTT timestamps. X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;h=c86f914e2fe21db708d5c17c62df657f66628cbd;p=srt2vtt.git webvtt: Fix WebVTT timestamps. * srt2vtt/webvtt.scm (write-time): Format time components with correct number of digits. --- diff --git a/srt2vtt/webvtt.scm b/srt2vtt/webvtt.scm index f4cd91b..046a5e7 100644 --- a/srt2vtt/webvtt.scm +++ b/srt2vtt/webvtt.scm @@ -27,7 +27,7 @@ "Write TIME as a WebVTT formatted timestamp to PORT." (match time ((h m s ms) - (format port "~a:~a:~a.~a" h m s ms)))) + (format port "~2,'0d:~2,'0d:~2,'0d.~3,'0d" h m s ms)))) (define (write-webvtt subtitle port) "Write SUBTITLE as a WebVTT formatted subtitle to PORT."