Figure out sxml (this took longer than I'd like to admit)

app.scm

@@ -1,15 +1,13 @@
-(define root document.body)
+(load "lib/mithril.scm")
 
 (define click-count 0)
 
-(m.mount
+(mount-root
- root
+ (component
- `&(:view
+  (sxml
-    ,(lambda ()
+   (main
-       (m "main"
+    (h1 "LIPS! PWA!")
-	  (vector
+    (button (@ (onclick (lambda ()
-	   (m "h1" "LIPS! PWA!")
+			  (set! click-count (+ 1 click-count))
-	   (m "button"
+			  (print click-count))))
-	      `&(:onclick
+	    ~(format "~a clicks" click-count))))))
-		 ,(lambda () (set! click-count (+ click-count 1))))
-	      (format "~a clicks" click-count)))))))

lib/mithril.scm

@@ -0,0 +1,11 @@
+(pragma->sxml m)
+
+(define (mount-root component)
+  (m.mount
+   document.body
+   component))
+
+(define-macro (component view)
+  `(object
+    :view
+    (lambda () (,@view))))