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