diff options
Diffstat (limited to 'html.tcl')
-rwxr-xr-x | html.tcl | 16 |
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>" + } + +} |