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

KSR reader macro syntax for cloze sequences

Browse Source
This commit is contained in:
Nat Quayle Nelson
2022-12-18 00:50:22 +00:00
parent 6d16fc6f0c
commit d22aa9c1bd
1 changed files with 12 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
projects/kiss-spaced-rep/src/kiss_spaced_rep/KSR.kiss
View File

@@ -153,4 +153,15 @@
(let [nextIndex (Std.random studyList.length) (let [nextIndex (Std.random studyList.length)
nextToStudy (nth studyList nextIndex)] nextToStudy (nth studyList nextIndex)]
(studyList.splice nextIndex 1) (studyList.splice nextIndex 1)
(nextToStudy engine (studyAll.bind engine))))) (nextToStudy engine (studyAll.bind engine)))))
(defReaderMacro ["*" "?"] [stream &builder b]
(let [elements []]
(loop
(let [line (expect stream "An element for a cloze sequence" takeLine)]
(case (line.charAt 0)
("*" (elements.push (b.str (line.substr 1))))
("?" (elements.push (b.str line)))
("" (break))
(otherwise (throw "bad element for a cloze sequence: $line")))))
`(cloze ,@elements)))