$Texi2HTML::Config::USE_LINKS = 1;
$Texi2HTML::Config::USE_REL_REV = 1;
$Texi2HTML::Config::element_file_name = \&split_at_numbered_sections;
-# $Texi2HTML::Config::node_file_name = \&lilypond_node_file_name;
$Texi2HTML::Config::print_element_header = \&lilypond_print_element_header;
$Texi2HTML::Config::print_page_foot = \&print_lilypond_page_foot;
$Texi2HTML::Config::print_navigation = \&lilypond_print_navigation;
my $node_to_filename_map = ();
-# modify the anchors for nodes, in particular, use the section<=>anchor map
-# from the .xref-map file and assign the pre-defined anchor to the node.
-# We don't want to split at nodes, so we don't return a valid file name
-# and just mis-use this function to change the node->{'id'}
-sub lilypond_node_file_name($$)
-{
- my $node = shift;
- my $type = shift;
- my $node_name = main::remove_texi($node->{'texi'});
-
- if (exists ($node_to_filename_map->{$node_name})) {
- (my $filename, my $anchor) = @{$node_to_filename_map->{$node_name}};
- $node->{'id'} = $anchor;
- } elsif ($type eq "top" or $type eq "toc" or $type eq "doc"
- or $type eq "stoc" or $type eq "foot" or $type eq "about") {
- # Nothing to do
- } else {
- my $anchor = $node_name;
- if ($node->{translationof}) {
- $anchor = main::remove_texi($node->{translationof});
- }
- # normalize to the same file name as texinfo
- $anchor = texinfo_file_name($anchor);
- $node->{'id'} = $anchor;
- }
- return undef;
-}
-
-
# This function makes sure that files are only generated for numbered sections,
# but not for unnumbered ones. It is called after texi2html has done its own
# splitting and simply returns the filename for the node given as first argument