Index: document_header.tcl ================================================================== --- document_header.tcl +++ document_header.tcl @@ -1,13 +1,9 @@ proc document_header {title path {search {}}} { - set ret [subst -nocommands { - - - - $title + set ret [subst -nocommands {
}] - if {[file exists DRAFT]} { + if {[file exists DRAFT] && 0} { set tagline {*** DRAFT ***} } else { set tagline {Small. Fast. Reliable.
Choose any three.} } - - append ret [subst -nocommands { -
- -
- - -
-
${tagline}
- - -
-
- About - Documentation - Download - License - Support - Purchase -
- }] - - if {$search==""} { - set initval "Search with FTS5..." - set initstyle {font-style:italic;color:#044a64} - } else { - set initval $search - set initstyle {font-style:normal;color:black} - } - append ret [subst -nocommands { - 		-
-
- - -
-
-
-
}] - return $ret + return $ret }