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
- 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)))))))
+(mount-root
+ (component
+  (sxml
+   (main
+    (h1 "LIPS! PWA!")
+    (button (@ (onclick (lambda ()
+			  (set! click-count (+ 1 click-count))
+			  (print click-count))))
+	    ~(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))))