projects
/
srt2vtt.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Allow auto-compilation for now.
[srt2vtt.git]
/
srt2vtt
diff --git
a/srt2vtt
b/srt2vtt
index 27e0927e23b3b28c7418cbc085e2d4e2e434fad8..8107e755149fe15f934092c8f03ec16e07f53137 100755
(executable)
--- a/
srt2vtt
+++ b/
srt2vtt
@@
-1,4
+1,4
@@
-#!/usr/bin/guile
--no-auto-compile
+#!/usr/bin/guile
-*- scheme -*-
!#
-*- scheme -*-
!#
@@
-66,7
+66,9
@@
two values: the start time and the end time. Valid input looks like
((start end) (parse-time-span (read-line port)))
((lines) (let loop ((lines '()))
(let ((line (read-line port)))
((start end) (parse-time-span (read-line port)))
((lines) (let loop ((lines '()))
(let ((line (read-line port)))
- (if (string-null? line)
+ (if (and (string-null? line)
+ ;; A subtitle may be a blank line!
+ (not (null? lines)))
lines
(loop (cons line lines)))))))
(make-subtitle id start end lines)))
lines
(loop (cons line lines)))))))
(make-subtitle id start end lines)))