summaryrefslogtreecommitdiff
path: root/demo/metaform2.ur
diff options
context:
space:
mode:
Diffstat (limited to 'demo/metaform2.ur')
-rw-r--r--demo/metaform2.ur12
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>