From dc0cecaac05c77769efa7e74ba4ea8e808dbb6a1 Mon Sep 17 00:00:00 2001
From: elioat <hi@eli.li>
Date: Thu, 7 Dec 2023 19:41:31 -0500
Subject: *

---
 scratch/htmx.scm | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 scratch/htmx.scm

(limited to 'scratch')

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
-- 
cgit 1.4.1-2-gfad0