Initial proof of concept

2026-07-07 21:47:41 +08:00 · 2026-07-07 21:47:41 +08:00 · 85e9e1f5f1
commit 85e9e1f5f1
parent b80602e230
8 changed files with 101 additions and 0 deletions
--- a/app.scm
+++ b/app.scm
@ -0,0 +1,15 @@
+(define root document.body)
+
+(define click-count 0)
+
+(m.mount
+ root
+ `&(:view
+    ,(lambda ()
+       (m "main"
+	  (vector
+	   (m "h1" "LIPS! PWA!")
+	   (m "button"
+	      `&(:onclick
+		 ,(lambda () (set! click-count (+ click-count 1))))
+	      (format "~a clicks" click-count)))))))