X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=Documentation%2Flilypond-texi2html.init;h=e3b09ab1d731e71cb982cedf4770fb82fa59bfb6;hb=712e575fb12d02d58e04553a3474afb9f6d2391b;hp=edd22bf1611317919aeebcb5385fcc6ee4dc11c7;hpb=e62c1e205cd619afcc43fd8c8a9a2c5a093b508e;p=lilypond.git diff --git a/Documentation/lilypond-texi2html.init b/Documentation/lilypond-texi2html.init index edd22bf161..e3b09ab1d7 100644 --- a/Documentation/lilypond-texi2html.init +++ b/Documentation/lilypond-texi2html.init @@ -76,23 +76,32 @@ use Encode qw(decode); my $LY_LANGUAGES = {}; $LY_LANGUAGES->{'fr'} = { 'Back to Documentation Index' => 'Retour à l\'accueil de la documentation', + '
Thanks to ${webdev_link} for hosting ${lily_site}.' => '
Remerciements à ${webdev_link} pour l\'hébergement de ${lily_site}.', }; + $LY_LANGUAGES->{'es'} = { 'Back to Documentation Index' => 'Volver al Ãndice de la documentación', + '
Thanks to ${webdev_link} for hosting ${lily_site}.' => '', }; + $LY_LANGUAGES->{'de'} = { 'Back to Documentation Index' => 'Zur Dokumentationsübersicht', + '
Thanks to ${webdev_link} for hosting ${lily_site}.' => '', }; + $LY_LANGUAGES->{'ja'} = { 'Back to Documentation Index' => 'ããã¥ã¡ã³ã ã¤ã³ããã¯ã¹ã«æ»ã', + '
Thanks to ${webdev_link} for hosting ${lily_site}.' => '', }; $LY_LANGUAGES->{'hu'} = { 'Back to Documentation Index' => 'Vissza a dokumentációk jegyzékéhez', + '
Thanks to ${webdev_link} for hosting ${lily_site}.' => '', }; $LY_LANGUAGES->{'it'} = { 'Back to Documentation Index' => 'Torna all\'indice della documentazione', + '
Thanks to ${webdev_link} for hosting ${lily_site}.' => '', }; # FIXME: request the translations below then send them to texi2html/texinfo devs @@ -366,6 +375,7 @@ $LANGUAGES->{'hu'} = { '{title_ref}' => '{title_ref}' }; + sub ly_get_string () { my $lang = $Texi2HTML::THISDOC{current_lang}; my $string = shift; @@ -917,15 +927,15 @@ push @Texi2HTML::Config::command_handler_process, \&lilypond_init_toc_depth; # -) the parent is a numbered element at top-level toplevel (i.e. show numbered # and unnumbered 2nd-level children of numbered nodes) # -) the child element is a numbered node below level maxlevel -sub generate_ly_toc_entries($$$) +sub generate_ly_toc_entries($$$$) { my $element = shift; my $element_path = shift; + my $maxlevel = shift; if ($web_manual) { - my $maxlevel = 1; - } else { - my $maxlevel = shift; + $maxlevel = 1; } + my $child_count = shift; # Skip undefined sections, plus all sections generated by index splitting return() if (not defined($element) or exists($element->{'index_page'})); my @result = (); @@ -939,54 +949,22 @@ sub generate_ly_toc_entries($$$) $this_css_class = ""; } $this_css_class .= $is_parent_of_current ? " toc_current" : ""; -# HORRIBLE HACK - my @color_1 = ( - "Learning", "Glossary", "Essay", - "Contact", "Tiny examples", "Bug reports" - ); - my @color_2 = ( - "Features", "Examples", "Freedom", "Background", - "Unix", "MacOS X", "Windows", - "Notation", "Usage", "Snippets", - "Help us", "Development", "Authors" - ); - my @color_3 = ( - "Productions", "Testimonials", - "Source", "Old downloads", - "Web", "FAQ", "Changes", "Extend", "Internals", - "Publications", "Old news" - ); - my @color_4 = ( - "Text input", "Easier editing", - "GPL", - "Translated", "All", "FDL" - ); + # color indices for the second navigation bar on the website + my %color_maps = ( + 'introduction' => [2, 2, 2, 2, 3, 3, 4, 4], + 'download' => [2, 2, 2, 3, 3, 4], + 'manuals' => [1, 1, 1, 2, 2, 2, 3, 3, 3, 3, 3, 4, 4, 4], + 'community' => [1, 1, 1, 2, 2, 2, 3, 3], + ); my $addColor = " colorDefault"; - foreach $color (@color_1) { - if ($element->{'text'} eq $color) { - $addColor = " color1"; - } - } - foreach $color (@color_2) { - if ($element->{'text'} eq $color) { - $addColor = " color2"; - } - } - foreach $color (@color_3) { - if ($element->{'text'} eq $color) { - $addColor = " color3"; - } - } - foreach $color (@color_4) { - if ($element->{'text'} eq $color) { - $addColor = " color4"; - } + while (($top_section, $color_indices) = each %color_maps) { + if (index ($element->{'sectionup'}->{'file'}, $top_section) >= 0) { + $addColor = " color" . $color_indices->[$child_count]; + } } - $this_css_class .= $addColor . "\""; - my $entry = "$ind
$program_string
$PRE_BODY_CLOSE
Thanks to webdev.nl";
- print $fh " for hosting lilypond.org
.\n";
+ # FIXME: inlined text substitution, move to ly_get_string as soon as another case is needed
+ my $webdev_link = "webdev.nl";
+ my $lily_site = "lilypond.org
";
+ my $hosting_thanks = &ly_get_string ('
Thanks to ${webdev_link} for hosting ${lily_site}.'); + # this does the variable substitution ("quoting" in Perlish) after the localization + $hosting_thanks =~ s/(\$\{\w+\})/$1/eeg; + print $fh $hosting_thanks . "\n"; print $fh "\n"; print $fh "