# -*-perl-*- $SPLIT = 'none'; $print_section = \&T2H_NOHEAD_print_section; $end_section = \&T2H_NOHEAD_end_section; $one_section = \&T2H_NOHEAD_one_section; #$print_Top_header = \&T2H_NOHEAD_print_Top_header; $print_Top_footer = \&T2H_NOHEAD_print_Top_footer; $print_Top = \&T2H_NOHEAD_print_Top; $print_misc_header = \&T2H_NOHEAD_print_misc_header; $print_misc_footer = \&T2H_NOHEAD_print_misc_footer; $print_misc = \&T2H_NOHEAD_print_misc; $print_head_navigation = \&T2H_NOHEAD_print_head_navigation; $about_body = \&T2H_NOHEAD_about_body; #$toc_body = \&T2H_NOHEAD_toc_body; ######################################################################## # Layout for html for every sections # sub T2H_NOHEAD_print_section { my $fh = shift; my $first_in_page = shift; my $previous_is_top = shift; if ($first_in_page) { &$print_head_navigation($fh); } else { # got to do this here, as it isn't done in print_head_navigation main::print_lines($fh, $Texi2HTML::THIS_HEADER); } my $nw = main::print_lines($fh); } sub T2H_NOHEAD_one_section($) { my $fh = shift; main::print_lines($fh); print $fh "$SMALL_RULE\n"; &$print_page_foot($fh); } ################################################################### # Layout of top-page I recommend that you use @ifnothtml, @ifhtml, # @html within the Top texinfo node to specify content of top-level # page. # # If you enclose everything in @ifnothtml, then title, subtitle, # author and overview is printed # Texi2HTML::HREF of Next, Prev, Up, Forward, Back are not defined # if $T2H_SPLIT then Top page is in its own html file sub T2H_NOHEAD_print_Top_footer($$) { my $fh = shift; print $fh "$SMALL_RULE\n"; } sub T2H_NOHEAD_print_Top { my $fh = shift; my $has_top_heading = shift; &$print_head_navigation($fh,[]); if ($Texi2HTML::THIS_SECTION) { # if top-level node has content, then print it with extra header #print $fh "

$Texi2HTML::NAME{Top}

\n" print $fh "

$Texi2HTML::NAME{Top}

\n" unless ($has_top_heading); main::print_lines($fh, $Texi2HTML::THIS_SECTION); } else { # top-level node is fully enclosed in @ifnothtml # print fulltitle, subtitle, author, Overview print $fh $Texi2HTML::TITLEPAGE; if (@{$Texi2HTML::OVERVIEW}) { print $fh '

' . &$I('Overview:') . "

\n" . "
\n"; my $nw = main::print_lines($fh, $Texi2HTML::OVERVIEW); print $fh "
\n"; } } } ################################################################### # Layout of Toc, Overview, and Footnotes pages # By default, we use "normal" layout # Texi2HTML::HREF of Next, Prev, Up, Forward, Back, etc are not defined # use: my $buttons = [...] to redefine navigation buttons sub T2H_NOHEAD_print_misc_header { my $fh = shift; &$print_page_head($fh) if $SPLIT; &$print_head_navigation($fh); } sub T2H_NOHEAD_print_misc_footer { my $fh = shift; print $fh "$SMALL_RULE\n"; if ($SPLIT) { &$print_navigation($fh, $buttons); &$print_page_foot($fh); } } sub T2H_NOHEAD_print_misc { my $fh = shift; &$print_misc_header($fh); print $fh "

$Texi2HTML::NAME{This}

\n"; main::print_lines($fh); &$print_misc_footer($fh); } sub T2H_NOHEAD_end_section($) { my $fh = shift; print $fh "$MIDDLE_RULE\n"; } ################################################################### # Layout of navigation panel sub T2H_NOHEAD_print_head_navigation { my $fh = shift; main::print_lines($fh, $Texi2HTML::THIS_HEADER); } sub T2H_NOHEAD_about_body { }