X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=srt2vtt%2Fwebvtt.scm;h=046a5e72cad18bff10a1d69550975bfa2ad6446d;hb=c86f914e2fe21db708d5c17c62df657f66628cbd;hp=f4cd91b70d4d32a0c606d1387eeade681c4a58fd;hpb=91c6e7263b217d873ce86173340d487e401a3296;p=srt2vtt.git

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."