diff options
| -rw-r--r-- | scratch/htmx.scm | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/scratch/htmx.scm b/scratch/htmx.scm new file mode 100644 index 0000000..fd4696d --- /dev/null +++ b/scratch/htmx.scm @@ -0,0 +1,20 @@ +#! /usr/bin/env chibi-scheme + +; Simple HTTP server +; Returns a minimal HTML page with a single number incremented +; every request. Binds to localhost port 8000. + +(import + (chibi) + (chibi net http-server) + (chibi net servlet) + (chibi sxml)) + +(let ((count 0)) + (run-http-server + 8000 + (lambda (cfg request next restart) + (set! count (+ 1 count)) + (servlet-write request (sxml->xml `(html (body + (p "Count: \n") + (p ,count)))))))) \ No newline at end of file |