kiss-lang/kiss-vscode
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

fix special case of (O.P. CONT'D)

Browse Source
This commit is contained in:
Nat Quayle Nelson
2021-12-14 14:11:13 -07:00
parent 642e4c8d58
commit 4378c91ae2
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
projects/hollywoo/src/hollywoo/FountainConversions.kiss
View File

@@ -2,9 +2,9 @@
(registerConversion
(new ktxt2.StreamConversion "On Phone Speech" "fountain" "hollywoo"
->stream ?(whenLet [(Some name) (stream.takeUntilAndDrop " (O.P.)")] true)
->stream ?(whenLet [(Some name) (stream.takeUntilAndDrop " (O.P.")] true)
->stream
(let [name (whenLet [(Some name) (stream.takeUntilAndDrop "(O.P.)")] name)
(let [name (whenLet [(Some name) (stream.takeUntilAndDrop "(O.P.")] name)
&mut output ""]
(stream.takeLine)
(loop
@@ -17,8 +17,8 @@
(registerConversion
(new ktxt2.StreamConversion "Normal Speech" "fountain" "hollywoo"
->stream ?(whenLet [(Some name) (stream.takeLine)
None (indexOf name "(O.P.)")
None (indexOf name "(V.O.)")] true)
None (indexOf name "(O.P.")
None (indexOf name "(V.O.")] true)
->stream
(let [name (whenLet [(Some name) (stream.takeLine)] name)
&mut output ""]