Add full GPLv3 text.

[srt2vtt.git] / srt2vtt

diff --git a/srt2vtt b/srt2vtt
index 34ba10517f0fa3be7a1cba14065988ac4bd4a76f..cbb4c6d5e7474c904f96a0b47c50bedb89aff958 100755 (executable)
--- a/srt2vtt
+++ b/srt2vtt
@@ -16,7 +16,7 @@
 ;;; General Public License for more details.
 ;;;
 ;;; You should have received a copy of the GNU General Public License
 ;;; 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:
 ;;
 
 ;;; Commentary:
 ;;


@@ -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)