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

kiss-spaced-rep refresh flow

Browse Source
This commit is contained in:
Nat Quayle Nelson
2023-04-12 09:54:09 -06:00
parent 7c32b57038
commit 1d140d38ae
4 changed files with 12 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
projects/kiss-spaced-rep/src/kiss_spaced_rep/ConsoleEngine.kiss
View File

@@ -27,4 +27,6 @@
(cc)) (cc))
(method :Void getUserInput [resolve] (method :Void getUserInput [resolve]
(resolve (.readLine (Sys.stdin)))) (resolve (.readLine (Sys.stdin))))
(method :Void promptForRefresh [:Void->Void refresh] null)

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

@@ -169,6 +169,7 @@
{ {
(engine.clear) (engine.clear)
(engine.println "All cards studied") (engine.println "All cards studied")
(engine.promptForRefresh ->(studyAll engine))
})) }))
(defReaderMacro ["*" "?"] [stream &builder b] (defReaderMacro ["*" "?"] [stream &builder b]

3
projects/kiss-spaced-rep/src/kiss_spaced_rep/StudyEngine.hx
View File

@@ -7,6 +7,7 @@ interface StudyEngine {
function print(s:String):Void; function print(s:String):Void;
function println(s:String):Void; function println(s:String):Void;
function showImage(s:String):Void; function showImage(s:String):Void;
function delayForUserInput(cc:Continuation):Void; function delayForUserInput(cc:Continuation, ?text:String):Void;
function getUserInput(resolve:String->Void):Void; function getUserInput(resolve:String->Void):Void;
function promptForRefresh(refresh:Void->Void):Void;
} }

8
projects/ksr-express/src/ksr_express/Engine.kiss
View File

@@ -43,11 +43,15 @@
(method :Void showImage [path] (method :Void showImage [path]
(+= content "<img src=\"/static/${path}\" /><br />")) (+= content "<img src=\"/static/${path}\" /><br />"))
(method :Void delayForUserInput [cc] (method :Void delayForUserInput [cc &opt :String text]
(set this.cc cc) (set this.cc cc)
(+= content "<br /><a href=\"/continue\">Next</a><br />")) (unless text
(set text "Next"))
(+= content "<br /><a href=\"/continue\">${text}</a><br />"))
(method :Void getUserInput [resolve] (method :Void getUserInput [resolve]
(set this.resolve resolve) (set this.resolve resolve)
(+= content "<br /><input type=\"text\" id=\"value\"><br /><button onclick=\"window.open('/submit?value=' + document.getElementById('value').value, '_self');\">Submit</a><br />")) (+= content "<br /><input type=\"text\" id=\"value\"><br /><button onclick=\"window.open('/submit?value=' + document.getElementById('value').value, '_self');\">Submit</a><br />"))
(method :Void promptForRefresh [refresh]
(delayForUserInput refresh "Refresh"))