### SETTINGS FOR TEXI2HTML
#############################################################################
+# no bgcolor and link colors in <body> tag
+# in texi2html >=1.83, override $Texi2HTML::Config::html_default_bodytext instead
+$Texi2HTML::Config::BODYTEXT = "";
# Validation fix for texi2html<=1.82
$Texi2HTML::Config::DOCTYPE = '<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">';
# should be fixed in lilypond-texi2html.init too
# Uhm, what about a bug report to Opera? We need sane names here.
#if ($Texi2HTML::Config::SPLIT eq 'section') {
-# $Texi2HTML::Config::element_file_name = \&lilypond_element_file_name;
+$Texi2HTML::Config::element_file_name = \&lilypond_element_file_name;
#}
$Texi2HTML::Config::element_target_name = \&lilypond_element_target_name;
$default_print_element_header = $Texi2HTML::Config::print_element_header;
$result = 't_g' . $result;
}
# DONE
+ # we also want lower-case
+ $result = lc($result);
return $result
}
### SPLITTING BASED ON NUMBERED SECTIONS
#############################################################################
-# FIXME: removed for GOP.
-
-# Uhm, yes: that's what I found. It was gone. No need to add that
-# in a comment, DIFF tells me that it's gone.
-
-# Comments can be used to tell *why* something has been removed -- as
-# it seems to me that we *need* this in order to get sane,
-# untranslated, html file names? Putting it back for this reason.
-
my $lastfilename;
my $docnr = 0;
my $node_to_filename_map = ();
# will not be able to retrieve the file name for xrefs!!! Still, I already
# had that code, so I'll leave it in in case something goes wrong with the
# extract_texi_filenames.py script in the lilypond build process!
- if (exists ($node_to_filename_map->{$node_name})) {
+
+ # FIXME: disable this section of code, I don't understand why but
+ # it gives us the filenames we want. -gp
+ if (0 and exists ($node_to_filename_map->{$node_name})) {
(my $filename, my $anchor) = @{$node_to_filename_map->{$node_name}};
$filename .= ".$docu_ext" if (defined($docu_ext));
# Numbered sections will get a filename Node_title, unnumbered sections will use
# the file name of the previous numbered section:
- if (($element->{number}) or ($lastfilename eq '') or ($element->{level} == 1)) {
+ # FIXME: above comment is false; for web we want to give them all new filenames.
+ if (1 or ($element->{number}) or ($lastfilename eq '') or ($element->{level} > 1)) {
# normalize to the same file name as texinfo
if ($element->{translationof}) {
$node_name = main::remove_texi($element->{translationof});
$docnr += 1;
$$element{doc_nr} = $docnr;
$lastfilename = $filename;
- return $filename;
+ return lc($filename);
} else {
$$element{doc_nr} = $docnr;
- return $lastfilename;
+ return lc($lastfilename);
}
}
my @color_3 = (
"Productions", "Testimonials",
"Source", "Old downloads",
- "FAQ", "Changes", "Internals",
+ "Web", "FAQ", "Changes", "Extend", "Internals",
"Publications", "Old news"
);
my @color_4 = (
# WTF, perl needs 6 lines of magic to do: ' ' + open ('file-name').read ()?
local $/=undef;
my $name = "search-box.html";
- open FILE, $name or open FILE, "$ENV{SRC_DIR}/$name" or die die "no such file: $name: $!";
+ open FILE, "$ENV{SRC_DIR}/$name" or open FILE, "$ENV{SRC_DIR}/../$name" or die die "no such file: $name: $!";
# All these also seems to work, but fail silently. Great, it runs!
# It's late already, let's this broken site.