don't put CONT'D in conversion dialogue name

2021-12-15 17:56:56 -07:00
parent f7d5a16e4e
commit c2ef99cbbe
1 changed files with 1 additions and 1 deletions
--- a/projects/hollywoo/src/hollywoo/FountainConversions.kiss
+++ b/projects/hollywoo/src/hollywoo/FountainConversions.kiss
@@ -33,7 +33,7 @@
                            (whenLet [(Some _) (indexOf name "(${tag}")] (return false)))
                        (and (isUpperCase name) {(stream.dropWhitespace) !(stream.isEmpty)}))
        ->stream
-            (let [name (whenLet [(Some name) (stream.takeLine)] name)
+            (let [name (whenLet [(Some name) (stream.takeLine)] (.trim (name.replace "(CONT'D)" "")))
                    &mut output ""]
                (loop
                    (let [wryly (ifLet [(Some w) (stream.takeBetween "(" ")\n")] w "")