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

try to refactor ksr-express image serving

Browse Source
This commit is contained in:
Nat Quayle Nelson
2023-03-13 07:25:42 -06:00
parent 6bbd5b1b58
commit bcc5474370
1 changed files with 2 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -12,11 +12,9 @@
port 3000 port 3000
staticDir (#if STATIC_DIR (#value "STATIC_DIR") (Sys.getCwd))] staticDir (#if STATIC_DIR (#value "STATIC_DIR") (Sys.getCwd))]
(print "Using $staticDir for static file directory") (print "Using $staticDir for static file directory")
(app.use (Express.static_.call staticDir)) (app.use "/static" (Express.static_.call staticDir))
(app.get "/" ->[req :Dynamic res next] (app.get "/" ->[req :Dynamic res next]
(res.send content)) (res.send content))
(app.get "/image/:path" ->[:Dynamic req :Dynamic res next]
(res.sendFile req.params.path (object root (Sys.getCwd))))
(app.get "/continue" ->[req res next] { (app.get "/continue" ->[req res next] {
(whenLet [_cc cc] (set cc null) (_cc)) (whenLet [_cc cc] (set cc null) (_cc))
(res.redirect "/") (res.redirect "/")
@@ -43,7 +41,7 @@
(+= content text "<br />")) (+= content text "<br />"))
(method :Void showImage [path] (method :Void showImage [path]
(+= content "<img src=\"/image/${path}\" /><br />")) (+= content "<img src=\"/static/${path}\" /><br />"))
(method :Void delayForUserInput [cc] (method :Void delayForUserInput [cc]
(set this.cc cc) (set this.cc cc)