summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--srt2vtt/webvtt.scm2
1 files changed, 1 insertions, 1 deletions
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."