don't put CONT'D in conversion dialogue name
This commit is contained in:
@@ -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 "")
|
||||||
|
Reference in New Issue
Block a user