1 files changed, 12 insertions, 0 deletions
diff --git a/demo/metaform2.ur b/demo/metaform2.ur
new file mode 100644
index 00000000..430a42f0
--- /dev/null
+++ b/demo/metaform2.ur
@@ -0,0 +1,12 @@
+structure MM = Metaform.Make(struct
+                                 val names = {X = "x", Y = "y"}
+                             end)
+
+fun diversion () = return <xml><body>
+  Welcome to the diversion.
+</body></xml>
+
+fun main () = return <xml><body>
+  <li> <a link={diversion ()}>See something shiny!</a></li>
+  <li> <a link={MM.main ()}>Fill out a form!</a></li>
+</body></xml>