timedsupertext conversion

2023-05-16 14:51:48 -06:00
parent 1df2ba1cce
commit 26e49991d0
1 changed files with 11 additions and 1 deletions
--- a/projects/_standalone/ktxt2/src/ktxt2/conversions/FountainToHollywoo.kiss
+++ b/projects/_standalone/ktxt2/src/ktxt2/conversions/FountainToHollywoo.kiss
@@ -68,4 +68,14 @@
                        "\n"))))

 (doWithCharacters "Add" "<position key> <facing>")
-(doWithCharacters "Remove" "")
+(doWithCharacters "Remove" "")
+
+(registerConversion
+    (new ktxt2.StreamConversion "Timed super text" "fountain" "hollywoo"
+        ->stream (stream.startsWith "SUPER:")
+        ->stream {
+            (stream.dropString "SUPER:")
+            (stream.dropWhitespace)
+            (let [text (stream.expect "super text" ->(stream.takeLine))]
+                "TIMEDSUPERTEXT ##\"${text}\"## ##\"${text}\"##")
+        }))