rename definePageStyle {}

proc definePageStyle {} {
    global titleMain

    if { ![info exists titleMain] } {
	set titleMain " !"
	error "No title given"
    }

    return "
    \\pagestyle\{fancy\}
    \\setlength\{\\headheight\}\{\\HeadHeight\}
    \\lhead{}\\rhead{}
    \\chead\{[headOfHead]$titleMain\\\\\\hrulefill\}
    \\renewcommand\{\\headrulewidth\}\{0pt\}
    \\cfoot{}
    \\rfoot{\\thepage}
"
}

rename ItemHead {}

proc ItemHead {} {
    return "
    \\vspace{2ex}

    \\begin\{center\}
    \\textbf\{\\textsf{\\theItemHead}\}
    \\makeatletter\\@endparpenalty10000\\interlinepenalty10000\\makeatother\\end\{center\}%
    \\addcontentsline{toc}{section}{\\theItemHead}%
"
}


#Local variables:
#mode: tcl
#End:
