58 lines
1.9 KiB
Plaintext
58 lines
1.9 KiB
Plaintext
(import kiss_spaced_rep.StudyEngine)
|
|
(implements StudyEngine)
|
|
|
|
(prop &mut :String content "")
|
|
|
|
(defNew []
|
|
[&mut :String image ""
|
|
&mut :Continuation cc null
|
|
&mut :String->Void resolve null
|
|
&mut :Dynamic connection null]
|
|
(let [app (Express.call)
|
|
port 3000
|
|
staticDir (#if STATIC_DIR (#value "STATIC_DIR") (Sys.getCwd))]
|
|
(print "Using $staticDir for static file directory")
|
|
(app.use "/static" (Express.static_.call staticDir))
|
|
(app.get "/" ->[req :Dynamic res next]
|
|
(res.send content))
|
|
(app.get "/continue" ->[req res next] {
|
|
(whenLet [_cc cc] (set cc null) (_cc))
|
|
(res.redirect "/")
|
|
})
|
|
(app.get "/submit" ->[:Dynamic req :Dynamic res next] {
|
|
(whenLet [_resolve resolve] (set resolve null) (_resolve req.query.value))
|
|
(res.redirect "/")
|
|
})
|
|
(app.get "/restart" ->[req :Dynamic res next] {
|
|
(res.redirect "/")
|
|
(connection.close)
|
|
(kiss_spaced_rep.Main_.main)
|
|
})
|
|
(#unless test
|
|
(set connection (app.listen port ->(print "kiss-express listening at http://localhost:$port"))))))
|
|
|
|
(method :Void clear []
|
|
(set content ""))
|
|
|
|
(method :Void print [text]
|
|
(+= content text))
|
|
|
|
(method :Void println [text]
|
|
(+= content text "<br />"))
|
|
|
|
(method :Void showImage [path]
|
|
(+= content "<img src=\"/static/${path}\" /><br />"))
|
|
|
|
(method :Void delayForUserInput [cc &opt :String text]
|
|
(set this.cc cc)
|
|
(unless text
|
|
(set text "Next"))
|
|
(+= content "<br /><a href=\"/continue\">${text}</a><br />"))
|
|
|
|
(method :Void getUserInput [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 />"))
|
|
|
|
(method :Void promptForRefresh [refresh]
|
|
(delayForUserInput refresh "Refresh"))
|