proc document_header {title path {search {}}} {
set ret [subst -nocommands {
$title
}]
if {[file exists DRAFT]} {
set tagline {*** DRAFT ***}
} else {
set tagline {Small. Fast. Reliable.
Choose any three.}
}
append ret [subst -nocommands {
$tagline
}]
append ret [subst -nocommands {
}]
regsub -all {\n+\s+} [string trim $ret] \n ret
regsub -all {\s*/\*[- a-z0-9A-Z"*\n]+\*/} $ret {} ret
return $ret
}