Name-detecting entrance/exit conversions

projects/ktxt2/src/ktxt2/NamesConversion.hx

@@ -0,0 +1,8 @@
+package ktxt2;
+
+import kiss.Prelude;
+import kiss.List;
+import bad_nlp.Names;
+
+@:build(kiss.Kiss.build())
+class NamesConversion {}

projects/ktxt2/src/ktxt2/NamesConversion.kiss

@@ -0,0 +1,9 @@
+(defNew [&prop &mut :String name
+            &prop &mut :String sourceType
+            &prop &mut :String outputType
+            :(String,Array<String>)->Bool canConvertNames
+            :Array<String>->String convertNames]
+    [
+        &mut :String->Bool canConvert ->block ?(whenLet [names (Names.findNames block)] (canConvertNames block names))
+        &mut :String->String convert ->block (let [names (Names.findNames block)] (convertNames names))
+    ])

projects/ktxt2/src/ktxt2/conversions/FountainToHollywoo.kiss

@@ -53,3 +53,17 @@
                         (.replace stream.content "/*" "")
                         "*/" "")
                     "*" ""))\n"))
+
+(function isScreenLine [:String block]
+    (= 1 .length (filter (block.split "\n"))))
+
+(function doWithCharacters [:String thing :String args]
+    (registerConversion
+        (new ktxt2.NamesConversion "${thing} characters" "fountain" "hollywoo"
+            ->[block names] (isScreenLine block)
+            ->names (+
+                        (.join (for name names "$(thing.toUpperCase)CHARACTER \"${name}\" $args") "\n")
+                        "\n"))))
+
+(doWithCharacters "Add" "<position key> <facing>")
+(doWithCharacters "Remove" "")