Basic mithril functions

mithril.scm

@@ -0,0 +1,31 @@
+(define (mithril:init)
+  "(mithril:init)
+
+Loads Mithril into the document head and sets the
+pragma->sxml function."
+  (get-resource )
+  (pragma->sxml m))
+
+(define-macro (mithril:comp view . args)
+  "(mithril:comp view . args)
+
+Creates a Mithril component object, where VIEW is
+a function body used to display the component, and
+ARGS is a list of keyword-value pairs that specify
+additional values on the component object.
+
+For example, the following code creates a stateful
+heading component:
+```
+(define Heading
+  (component
+    (sxml
+      (h1 ~vnode.state.title))
+    :title \"Title Text\"))
+```"
+  (when (= (remainder (length args) 2 1))
+    (error "Component macro expects even length args list."))
+  `(object
+    :view
+    (lambda (vnode) (,@view))
+    ,@args))