projects
/
srt2vtt.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add blank line after WebVTT signature.
[srt2vtt.git]
/
srt2vtt
diff --git
a/srt2vtt
b/srt2vtt
index 2c0e82678464eaec1def2b187a90fcbf34865282..cbb4c6d5e7474c904f96a0b47c50bedb89aff958 100755
(executable)
--- a/
srt2vtt
+++ b/
srt2vtt
@@
-89,7
+89,7
@@
(newline port))))
(define (write-web-vtts subtitles port)
(newline port))))
(define (write-web-vtts subtitles port)
- (
display "WEBVTT\n" port
)
+ (
format port "WEBVTT~%~%"
)
(for-each (cut write-web-vtt <> port) subtitles))
(define (convert input-port output-port)
(for-each (cut write-web-vtt <> port) subtitles))
(define (convert input-port output-port)