# Main template library file
# Set things here that will be shared by all templates
# Note that the global array "page" will be defined to have
# several per-page attributes:
#	page(url)	The URL of the document
#	page(template)	The complete pathname of the template file
#	page(filename)	The complete pathname of the .html file
#	page(root)	A ../  prefix to get back up to the root.

package require template

catch {unset template}		;# Reset state
array set template [list \
	timeofday	[clock seconds] \
	location	Home
]

proc MyHead {title author} {
    return [Head][Title $title][Author $author][MyBody]<h1>$title</h1>
}
proc MyBody {} {
    return [Body bgcolor=white text=black]
}
