1 files changed, 16 insertions, 0 deletions
diff --git a/html.tcl b/html.tcl
new file mode 100755
index 0000000..9a6a946
--- /dev/null
+++ b/html.tcl
@@ -0,0 +1,16 @@
+
+namespace eval html {
+
+    proc start {title} {
+		return "<!DOCTYPE html><html><head><title>$title</title><link rel='stylesheet' href='/style.css'></head><body>";
+    }
+
+    proc end {} {
+		return "</body></html>"
+    }
+    
+    proc link {name link} {
+		return "<a href=\"$link\">$name</a>"
+    }
+    
+}