don't put CONT'D in conversion dialogue name

This commit is contained in:
2021-12-15 17:56:56 -07:00
parent f7d5a16e4e
commit c2ef99cbbe

View File

@@ -33,7 +33,7 @@
(whenLet [(Some _) (indexOf name "(${tag}")] (return false))) (whenLet [(Some _) (indexOf name "(${tag}")] (return false)))
(and (isUpperCase name) {(stream.dropWhitespace) !(stream.isEmpty)})) (and (isUpperCase name) {(stream.dropWhitespace) !(stream.isEmpty)}))
->stream ->stream
(let [name (whenLet [(Some name) (stream.takeLine)] name) (let [name (whenLet [(Some name) (stream.takeLine)] (.trim (name.replace "(CONT'D)" "")))
&mut output ""] &mut output ""]
(loop (loop
(let [wryly (ifLet [(Some w) (stream.takeBetween "(" ")\n")] w "") (let [wryly (ifLet [(Some w) (stream.takeBetween "(" ")\n")] w "")