# -*-perl-*-
######################################################################
#
# File: t2h_singular.init init file for singular t2h
#
use strict;
use vars qw($node_file_name);
my $T2H_BLUE_BUTTONS = 0;
# we only redefine things which ar of relevance to singular
# all the others we simply "include"
# -prefix
# Set the output file prefix, prepended to all .html, .png and .pl files.
set_from_init_file('setfilename', 'sing');
# -expand
# if set to "tex" (or, "info") expand @iftex and @tex (or, @ifinfo) sections
# else, neither expand @iftex, @tex, nor @ifinfo sections
set_from_init_file('EXPANDED_FORMATS', ['html', 'tex']);
# if set, creates one html file per node
set_from_init_file('SPLIT', 'node');
#if set cross-references use the xref node name argument
set_from_init_file('XREF_USE_NODE_NAME_ARG', 1);
# if set, chatter about what we are doing
set_from_init_file('VERBOSE', 1);
my $T2H_SING_base_images = '../singular_images/';
# inside
set_from_init_file('BODYTEXT','lang="en" background="'.${T2H_SING_base_images}.'Mybg.png"');
# after
set_from_init_file('AFTER_BODY_OPEN', "\n");
# before
set_from_init_file('PRE_BODY_CLOSE', "\n");
# if using tex4ht, must be in latex mode due to \textbf
$Texinfo::TeX4HT::STYLE='latex';
# title is already in the manual
#$print_title = \&T2H_DEFAULT_print_title;
set_from_init_file('SHOW_TITLE', 0);
# footer
texinfo_register_formatting_function('format_element_footer' , \&singular_format_footer);
sub singular_format_footer($$$$)
{
my $self = shift;
my $type = shift;
my $element = shift;
my $content = shift;
my $end_page = (!$element->{'element_next'}
or (defined($element->{'filename'})
and $element->{'filename'} ne $element->{'element_next'}->{'filename'}
and $self->{'file_counters'}->{$element->{'filename'}} == 1));
if ($self->element_is_top($element)) {
my $buttons = $self->get_conf('TOP_BUTTONS');
my $content_href = $self->_element_direction($element, 'Contents',
'href');
my $about_href = $self->_element_direction($element, 'About',
'href');
my $result = '';
if ($content_href or $about_href) {
$result .= "\n";
$result .= "Table of Contents\n
\n"
if ($content_href);
$result .= "About this document"
if ($about_href);
$result .= "
";
}
$result .= "
"
if ($self->get_conf('VERTICAL_HEAD_NAVIGATION'));
$result .= $self->get_conf('DEFAULT_RULE')."\n"
if (defined($self->get_conf('DEFAULT_RULE')));
if ($end_page) {
$result .= join('', $self->close_registered_sections_level(0));
$result .= &{$self->{'format_navigation_header_panel'}}($self,
$buttons, undef, $element);
}
return $result;
}
return &{$self->default_formatting_function('format_element_footer')}($self,
$type, $element, $content);
}
texinfo_register_formatting_function('format_end_file' , \&singular_format_end_file);
# footer of page
sub singular_format_end_file($)
{
my $self = shift;
my $pre_body_close = $self->get_conf('PRE_BODY_CLOSE');
my $program_homepage = $self->get_conf('PACKAGE_URL');
my $program_and_version = $self->get_conf('PACKAGE_AND_VERSION');
my $version = $self->get_value('VERSION');
my $version_date = $self->get_value('VERSION_DATE');
$version = 'NO VERSION' if (!defined($version));
$version_date = 'NO VERSION DATE' if (!defined($version_date));
my $result = '
User manual for Singular version '."$version, $version_date,
generated by $program_and_version.
$pre_body_close