From: David Thompson <dthompson2@worcester.edu>
Date: Sun, 25 Jan 2015 16:13:07 +0000 (-0500)
Subject: Accept blank lines as valid subtitles.
X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;h=f891b76cfc4362946650c298c02bc06d04cdad54;p=srt2vtt.git

Accept blank lines as valid subtitles.

* srt2vtt (read-sub-rip): Allow the first subtitle line to be blank.
---

diff --git a/srt2vtt b/srt2vtt
index 27e0927..15c812f 100755
--- a/srt2vtt
+++ b/srt2vtt
@@ -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)))
-                            (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)))