html.tcl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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>"
    }
    
}