;;; General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
-;;; along with Haunt. If not, see <http://www.gnu.org/licenses/>.
+;;; along with srt2vtt. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;
(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)