]> git.donarmstrong.com Git - lilypond.git/blobdiff - Documentation/lilypond-texi2html.init
Add '-dcrop' option to ps and svg backends
[lilypond.git] / Documentation / lilypond-texi2html.init
index 928366317d497e3420a050f3ccaab3d0e65c0068..70a86344f15a486b8e1c4f852bccf0ae97e512b1 100644 (file)
@@ -93,6 +93,11 @@ use Encode qw(decode);
 #############################################################################
 
 my $LY_LANGUAGES = {};
+$LY_LANGUAGES->{'ca'} = {
+    'Back to Documentation Index' => 'Torna a l\'índex de la documentació',
+    '<p>Thanks to ${webdev_link} for hosting ${lily_site}.' => '<p>Agraïm a ${webdev_link} l\'allotjament de ${lily_site}.',
+};
+
 $LY_LANGUAGES->{'cs'} = {
     'Back to Documentation Index' => '',
     '<p>Thanks to ${webdev_link} for hosting ${lily_site}.' => '',
@@ -121,7 +126,7 @@ $LY_LANGUAGES->{'hu'} = {
 
 $LY_LANGUAGES->{'it'} = {
     'Back to Documentation Index' => 'Torna all\'indice della documentazione',
-    '<p>Thanks to ${webdev_link} for hosting ${lily_site}.' => '',
+    '<p>Thanks to ${webdev_link} for hosting ${lily_site}.' => 'Grazie a ${webdev_link} per l\'hosting di ${lily_site}.',
 };
 
 $LY_LANGUAGES->{'ja'} = {
@@ -142,6 +147,141 @@ $LY_LANGUAGES->{'zh'} = {
 
 # FIXME: request the translations below then send them to texi2html/texinfo devs
 
+$LANGUAGES->{'ca'} = {
+                       '  The buttons in the navigation panels have the following meaning:' => '  Els botons als panells de navegació tenen els significats següents:',
+                       '  where the @strong{ Example } assumes that the current position is at @strong{ Subsubsection One-Two-Three } of a document of the following structure:' => '  on l\'@strong{exemple} suposa que la posició actual és a la @strong{ Subsubsecció U-Dos-Tres } d\'un document a l\'estructura següent:',
+                       ' Up ' => ' Amunt ',
+                       '(outside of any element)' => '(fora de qualsevol element)',
+                       '(outside of any node)' => '(fora de qualsevol node)',
+                       '@b{{quotation_arg}:} ' => '@b{{quotation_arg}:} ',
+                       '@cite{{book}}' => '@cite{{book}}',
+                       '@{No value for `{value}\'@}' => '@{Cap valor per a `{value}\'@}',
+                       'About' => 'Quant a',
+                       'About (help)' => 'Quant a (ajuda)',
+                       'About This Document' => 'Quant a aquest document',
+                       'April' => 'Abril',
+                       'August' => 'Agost',
+                       'Back' => 'Enrere',
+                       'Back section in previous file' => 'Secció enrere al fitxer previ',
+                       'Beginning of this chapter or previous chapter' => 'Inici d\'aquest capítol o capítul previ',
+                       'Button' => 'Botó',
+                       'Contents' => 'Continguts',
+                       'Cover (top) of document' => 'Portada (part superior) del document',
+                       'Current' => 'Actual',
+                       'Current Position' => 'Posició actual',
+                       'Current section' => 'Secció actual',
+                       'December' => 'Desembre',
+                       'FastBack' => 'Enrere ràpid',
+                       'FastForward' => 'Endavant ràpid',
+                       'February' => 'Febrer',
+                       'First' => 'Primera',
+                       'First section in reading order' => 'Primera secció en ordre de lectura',
+                       'Following' => 'Següent',
+                       'Following node' => 'Node següent',
+                       'Footnotes' => 'Notes a peu de pàgina',
+                       'Forward' => 'Endavant',
+                       'Forward section in next file' => 'Secció següent al fitxer següent',
+                       'From 1.2.3 go to' => 'De 1.2.3 ves a',
+                       'Go to' => 'Ves a',
+                       'Index' => 'Índex',
+                       'Index Entry' => 'Entrada de l\'índex',
+                       'January' => 'Gener',
+                       'July' => 'Juliol',
+                       'Jump to' => 'Salta a',
+                       'June' => 'June',
+                       'Last' => 'Última',
+                       'Last section in reading order' => 'Última secció en ordre de lectura',
+                       'March' => 'Març',
+                       'May' => 'Maig',
+                       'Menu:' => 'Menú',
+                       'Name' => 'Nom',
+                       'Next' => 'Següent',
+                       'Next chapter' => 'Capítol segúent',
+                       'Next file' => 'Fitxer següent',
+                       'Next node' => 'Node següent',
+                       'Next section in reading order' => 'Secció següent en ordre de lectura',
+                       'Next section on same level' => 'Secció següent al mateix nivell',
+                       'NextFile' => 'Fitxer següent',
+                       'Node following in node reading order' => 'Node següent en ordre de lectura',
+                       'Node up' => 'Node amunt',
+                       'NodeNext' => 'Node següent',
+                       'NodePrev' => 'Node anterior',
+                       'NodeUp' => 'Node superior',
+                       'November' => 'Novembre',
+                       'October' => 'Octubre',
+                       'Overview' => 'Panoràmica',
+                       'Prev' => 'Previ',
+                       'PrevFile' => 'Fitxer previ',
+                       'Previous' => 'Anterior',
+                       'Previous file' => 'Fitxer anterior',
+                       'Previous node' => 'Node anterior',
+                       'Previous section in reading order' => 'Secció anterior en ordre de lectura',
+                       'Previous section on same level' => 'Secció prèvia al mateix nivell',
+                       'Section' => 'Secció',
+                       'Section One' => 'Secció u',
+                       'See ' => 'Vegeu',
+                       'See @cite{{book}}' => 'Vegeu @cite{{book}}',
+                       'See section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => 'Vegeu la secció  `@asis{}`{section_name}\'@asis{}\' a @cite{{book}}',
+                       'See section `{section}\' in @cite{{book}}' => 'Vegeu la secció `{section}\' a @cite{{book}}',
+                       'See section {reference_name}' => 'Vegeu la secció {reference_name}',
+                       'See {node_file_href}' => 'Vegeu {node_file_href}',
+                       'See {node_file_href} @cite{{book}}' => 'Vegeu {node_file_href} @cite{{book}}',
+                       'See {node_file_href} section `{section}\' in @cite{{book}}' => 'Vegeu {node_file_href} a la secció `{section}\' a @cite{{book}}',
+                       'See {reference_name}' => 'Vegeu {reference_name}',
+                       'See {ref}' => 'Vegeu {ref}',
+                       'See {title_ref}' => 'Vegeu {title_ref}',
+                       'September' => 'Setembre',
+                       'Short Table of Contents' => 'Índex brevu',
+                       'Short table of contents' => 'Índex breu',
+                       'Subsection One-Four' => 'Subsecció U-Quatre',
+                       'Subsection One-One' => 'Subsecció U-U',
+                       'Subsection One-Three' => 'Subsecció U-Tres',
+                       'Subsection One-Two' => 'Subsecció U-Dos',
+                       'Subsubsection One-Two-Four' => 'Subsubseció U-Dos-Quatre',
+                       'Subsubsection One-Two-One' => 'Subsubsecció U-Dos-U',
+                       'Subsubsection One-Two-Three' => 'Subsubsecció U-Dos-Tres',
+                       'Subsubsection One-Two-Two' => 'Subsubsecció U-Dos-Dos',
+                       'T2H_today' => '%s, %d %d',
+                       'Table of Contents' => 'Índex',
+                       'Table of contents' => 'Índex',
+                       'The node you are looking for is at {href}.' => 'El node que esteu buscant és {href}',
+                       'This' => 'Aquest',
+                       'This document was generated on @i{{date}} using @uref{{program_homepage}, @i{{program}}}.' => 'Aquest document s\'ha generat el @i{{date}} amb @uref{{program_homepage}, @i{{program}}}.',
+                       'This document was generated using @uref{{program_homepage}, @emph{{program}}}.' => 'Aquest document sha generat amb @uref{{program_homepage}, @emph{{program}}}.',
+                       'Top' => 'Inici',
+                       'Untitled Document' => 'Document sense títol',
+                       'Up' => 'Amunt',
+                       'Up node' => 'Node superior',
+                       'Up section' => 'Secció supeior',
+                       'current' => 'actual',
+                       'on @emph{{date}}' => 'el @emph{{date}}',
+                       'section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => 'secció `@asis{}`{section_name}\'@asis{}\' a @cite{{book}}',
+                       'section `{section}\' in @cite{{book}}' => 'secció `{section}\' a @cite{{book}}',
+                       'see ' => 'vegeu ',
+                       'see @cite{{book}}' => 'vegeu @cite{{book}}',
+                       'see section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => 'vegeu la secció `@asis{}`{section_name}\'@asis{}\' a @cite{{book}}',
+                       'see section `{section}\' in @cite{{book}}' => 'vegeu la secció `{section}\' a @cite{{book}}',
+                       'see section {reference_name}' => 'vegeu la secció {reference_name}',
+                       'see {node_file_href}' => 'vegeu {node_file_href}',
+                       'see {node_file_href} @cite{{book}}' => 'vegeu {node_file_href} @cite{{book}}',
+                       'see {node_file_href} section `{section}\' in @cite{{book}}' => 'vegeu {node_file_href} a la secció `{section}\' a @cite{{book}}',
+                       'see {reference_name}' => 'vegeu {reference_name}',
+                       'see {ref}' => 'vegeu {ref}',
+                       'see {title_ref}' => 'vegeu {title_ref}',
+                       '{acronym_like} ({explanation})' => '{acronym_like} ({explanation})',
+                       '{name} of {class}' => '{name} de {class}',
+                       '{name} on {class}' => '{name} a {class}',
+                       '{node_file_href}' => '{node_file_href}',
+                       '{node_file_href} @cite{{book}}' => '{node_file_href} @cite{{book}}',
+                       '{node_file_href} section `{section}\' in @cite{{book}}' => '{node_file_href} a la secció `{section}\' a @cite{{book}}',
+                       '{reference_name}' => '{reference_name}',
+                       '{ref}' => '{ref}',
+                       '{style} {number}' => '{style} {number}',
+                       '{style}: {caption_first_line}' => '{style}: {caption_first_line}',
+                       '{style}: {shortcaption_first_line}' => '{style}: {shortcaption_first_line}',
+                       '{title_ref}' => '{title_ref}'
+                     };
+
 $LANGUAGES->{'it'} = {
                        '  The buttons in the navigation panels have the following meaning:' => '  I bottoni nei pannelli di navigazione hanno il seguente significato:',
                        '  where the @strong{ Example } assumes that the current position is at @strong{ Subsubsection One-Two-Three } of a document of the following structure:' => '  dove @strong{ Esempio } assume che l\'attuale posizione è alla @strong{ Sottosottosezione Uno-Due-Tre } di un documento che ha la seguente struttura:',
@@ -682,6 +822,141 @@ $LANGUAGES->{'cs'} = {
                        '{title_ref}' => '{title_ref}'
                      };
 
+$LANGUAGES->{'ca'} = {
+                       '  The buttons in the navigation panels have the following meaning:' => '  Els botons dels plafons de navegació tenen els significat següent:',
+                       '  where the @strong{ Example } assumes that the current position is at @strong{ Subsubsection One-Two-Three } of a document of the following structure:' => '  on l\'@strong{ Exemple } suposa que la posició actual està a @strong{ Subsubsecció U-Dos-tres } d\'un document a l\'estructura següent:',
+                       ' Up ' => ' Amunt ',
+                       '(outside of any element)' => '(fora de qualsevol element)',
+                       '(outside of any node)' => '(fora de qualsevol node)',
+                       '@b{{quotation_arg}:} ' => '@{{quotation_arg}:}',
+                       '@cite{{book}}' => '@cite{{book}}',
+                       '@{No value for `{value}\'@}' => '@{No hi ha cap valor per a `{value}\'@}',
+                       'About' => 'Quant a',
+                       'About (help)' => 'Quant a (ajuda)',
+                       'About This Document' => 'Quant a aquest document',
+                       'April' => 'Abril',
+                       'August' => 'Agost',
+                       'Back' => 'Endarrere',
+                       'Back section in previous file' => 'Endarrere una secció al fitxer previ',
+                       'Beginning of this chapter or previous chapter' => 'Inici d\'aquest capítol o capítol previ',
+                       'Button' => 'Botó',
+                       'Contents' => 'Continguts',
+                       'Cover (top) of document' => 'Portada (inici) del document',
+                       'Current' => 'Actual',
+                       'Current Position' => 'Posició actual',
+                       'Current section' => 'Secció actual',
+                       'December' => 'Desembre',
+                       'FastBack' => 'Endarrere ràpid',
+                       'FastForward' => 'Endavant ràpid',
+                       'February' => 'Febrer',
+                       'First' => 'Primera',
+                       'First section in reading order' => 'Primera secció a l\'orde de lectura',
+                       'Following' => 'Següent',
+                       'Following node' => 'Node següent',
+                       'Footnotes' => 'Notes a peu de pàgina',
+                       'Forward' => 'Endavant',
+                       'Forward section in next file' => 'Endavant una secció al fitxer següent',
+                       'From 1.2.3 go to' => 'De 1.2.3 ves a',
+                       'Go to' => 'Ves a',
+                       'Index' => 'Índex',
+                       'Index Entry' => 'Entrada d\'índex',
+                       'January' => 'Gener',
+                       'July' => 'Juliol',
+                       'Jump to' => 'Salta a',
+                       'June' => 'Juny',
+                       'Last' => 'Últim',
+                       'Last section in reading order' => 'Última secció en ordre de lectura',
+                       'March' => 'Març',
+                       'May' => 'Maig',
+                       'Menu:' => 'Menú',
+                       'Name' => 'Nom',
+                       'Next' => 'Següent',
+                       'Next chapter' => 'Capítol següent',
+                       'Next file' => 'Fitxer següent',
+                       'Next node' => 'Node següent',
+                       'Next section in reading order' => 'Secció següent en ordre de lectura',
+                       'Next section on same level' => 'Secció següent al mateix nivell',
+                       'NextFile' => 'Fitxer següent',
+                       'Node following in node reading order' => 'Node següent en ordre de lectura de nodes',
+                       'Node up' => 'Node amunt',
+                       'NodeNext' => 'Node següent',
+                       'NodePrev' => 'Node previ',
+                       'NodeUp' => 'Node Amunt',
+                       'November' => 'Novembre',
+                       'October' => 'Octobre',
+                       'Overview' => 'Panoràmica',
+                       'Prev' => 'Previ',
+                       'PrevFile' => 'Fitxer previ',
+                       'Previous' => 'Previ',
+                       'Previous file' => 'Fitxer previ',
+                       'Previous node' => 'Node previ',
+                       'Previous section in reading order' => 'Secció prèvia en ordre de lectura',
+                       'Previous section on same level' => 'Secció prèvia al mateix nivell',
+                       'Section' => 'Secció',
+                       'Section One' => 'Secció u',
+                       'See ' => 'Vegeu ',
+                       'See @cite{{book}}' => 'Vegeu @cite{{book}}',
+                       'See section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => 'Vegeu secció @asis{}`{section_name}\'@asis{}\' a @cite{{book}}',
+                       'See section `{section}\' in @cite{{book}}' => 'Vegeu la secció `{section}\' a @cite{{book}}',
+                       'See section {reference_name}' => 'Vegeu la secció {reference_name}',
+                       'See {node_file_href}' => 'Vegeu {node_file_href}',
+                       'See {node_file_href} @cite{{book}}' => 'Vegeu {node_file_href} @cite{{book}}',
+                       'See {node_file_href} section `{section}\' in @cite{{book}}' => 'Vegeu {node_file_href} secció `{secion}\' a @cite{{book}}',
+                       'See {reference_name}' => 'Vegeu {reference_name}',
+                       'See {ref}' => 'Vegeu {ref}',
+                       'See {title_ref}' => 'Vegeu {title_ref}',
+                       'September' => 'Septembre',
+                       'Short Table of Contents' => 'Taula de continguts breu',
+                       'Short table of contents' => 'Taula de continguts breu',
+                       'Subsection One-Four' => 'Subsecció U-Quatre',
+                       'Subsection One-One' => 'Subsecció U-U',
+                       'Subsection One-Three' => 'Subsecció U-Tres',
+                       'Subsection One-Two' => 'Subsecció U-Dos',
+                       'Subsubsection One-Two-Four' => 'Subsubsecció U-Dos-Quatre',
+                       'Subsubsection One-Two-One' => 'Subsubsecció U-Dos-U',
+                       'Subsubsection One-Two-Three' => 'Subsubsecció U-Dos-Tres',
+                       'Subsubsection One-Two-Two' => 'Subsubsecció U-Dos-Dos',
+                       'T2H_today' => 'T2H_today',
+                       'Table of Contents' => 'Taula de contingus',
+                       'Table of contents' => 'Taula de continguts',
+                       'The node you are looking for is at {href}.' => 'El node que esteu buscant està a {href}.',
+                       'This' => 'Aquest',
+                       'This document was generated on @i{{date}} using @uref{{program_homepage}, @i{{program}}}.' => 'Aquest document es va generar a @i{{date}} usant @uref{{program_homepage}, @i{{program}}}',
+                       'This document was generated using @uref{{program_homepage}, @emph{{program}}}.' => 'Aquest document es va generar usant @uref{{program_homepage}, @empf{{program}}}.',
+                       'Top' => 'Part superior',
+                       'Untitled Document' => 'Document sense títol',
+                       'Up' => 'Amunt',
+                       'Up node' => 'Amunt node',
+                       'Up section' => 'Amunt secció',
+                       'current' => 'actual',
+                       'on @emph{{date}}' => 'el @empf{{date}}',
+                       'section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => 'secció `@asis{}`{secion_name}\'@asis{}\' a @cite{{book}}',
+                       'section `{section}\' in @cite{{book}}' => 'secció `{section}\' a @cite{{book}}',
+                       'see ' => 'vegeu ',
+                       'see @cite{{book}}' => 'vegeu @cite{{book}}',
+                       'see section `@asis{}`{section_name}\'@asis{}\' in @cite{{book}}' => 'vegeu secció `@asis{}`{secion_name}\'@asis{}\' a @cite{{book}}',
+                       'see section `{section}\' in @cite{{book}}' => 'vegeu secció `{section}\' a @cite{{book}}',
+                       'see section {reference_name}' => 'vegeu secció {reference_name}',
+                       'see {node_file_href}' => 'vegeu {node_file_href}',
+                       'see {node_file_href} @cite{{book}}' => 'vegeu {node_file_href} @cite{{book}}',
+                       'see {node_file_href} section `{section}\' in @cite{{book}}' => 'vegeu {node_file_href} secció `{seciont}\' a @cite{{book}}',
+                       'see {reference_name}' => 'vegeu {reference_name}',
+                       'see {ref}' => 'vegeu {ref}',
+                       'see {title_ref}' => 'vegeu {title_ref}',
+                       '{acronym_like} ({explanation})' => '{acronym_lie} ({explanation})',
+                       '{name} of {class}' => '{name} de {class}',
+                       '{name} on {class}' => '{name} a {class}',
+                       '{node_file_href}' => '{node_file_href}',
+                       '{node_file_href} @cite{{book}}' => '{node_file_href} @cite{{book}}',
+                       '{node_file_href} section `{section}\' in @cite{{book}}' => '{node_file_href} secció `{secció}\' a @cite{{book}}',
+                       '{reference_name}' => '{reference_name}',
+                       '{ref}' => '{ref}',
+                       '{style} {number}' => '{style} {number}',
+                       '{style}: {caption_first_line}' => '{style}: {caption_first_line}',
+                       '{style}: {shortcaption_first_line}' => '{style}: {shortcaption_first_line}',
+                       '{title_ref}' => '{title_ref}'
+                     };
+
 $LANGUAGES->{'zh'} = {
                        '  The buttons in the navigation panels have the following meaning:' => '  在导航面板上按钮有以下含意:',
                        '  where the @strong{ Example } assumes that the current position is at @strong{ Subsubsection One-Two-Three } of a document of the following structure:' => ' 这里的@strong{ 例子 } 假设当前的位置是在紧接着的结构的文档中的 @strong{ 小分段 1-2-3 }:',
@@ -1052,7 +1327,7 @@ sub split_texi_filename ($)
 #############################################################################
 
 # Include our standard CSS file, not hard-coded CSS code directly in the HTML!
-# For IE, conditionally include the lilypond-ie-fixes.css style sheet
+# For IE, add a second conditionally included CSS file.
 sub lilypond_css_lines ($$)
 {
   my $import_lines = shift;
@@ -1076,10 +1351,13 @@ sub lilypond_css_lines ($$)
        "<link rel=\"alternate stylesheet\" type=\"text/css\" href=\"css/$ref->{FILENAME}\" title=\"$ref->{TITLE}\">\n";
   }
 
-  # The ie-fixes stylesheet is needed for the docs, but not the website.
-  if (not ($web_manual)) {
+  # Add a conditionally included CSS file for IE, for either the docs or the website
+  if ($web_manual) {
     $Texi2HTML::THISDOC{'CSS_LINES'} .=
-       "<!--[if lte IE 7]>\n<link href=\"css/lilypond-ie-fixes.css\" rel=\"stylesheet\" type=\"text/css\">\n<![endif]-->\n";
+       "<!--[if lte IE 9]>\n<link href=\"css/lilypond-website-ie-fixes.css\" rel=\"stylesheet\" type=\"text/css\">\n<![endif]-->\n";
+  } else {
+    $Texi2HTML::THISDOC{'CSS_LINES'} .=
+       "<!--[if lte IE 7]>\n<link href=\"css/lilypond-manuals-ie-fixes.css\" rel=\"stylesheet\" type=\"text/css\">\n<![endif]-->\n";
   }
 
   if ($ENV{'AJAX_SEARCH'} == 1) {
@@ -1091,9 +1369,28 @@ sub lilypond_css_lines ($$)
     my $reldir = "";
     $reldir = "../" unless $bigpage;
     if ($have_index_entries) {
-      $Texi2HTML::THISDOC{'CSS_LINES'} .= "<script language=\"JavaScript\" src=\"${reldir}lily_search.js\"></script>\n";
+      $Texi2HTML::THISDOC{'CSS_LINES'} .= "<script language=\"JavaScript\" type=\"text/javascript\" src=\"${reldir}lily_search.js\"></script>\n";
     }
   }
+
+  ## This section makes the manual name visible to CSS through the body tag
+  ## so that styles can be applied per manual. It will add the manual
+  ## directory name (e.g., 'notation' or 'learning') as a CSS class, as well
+  ## as a development status.
+
+  # Parse the input file name to determine the manual we're dealing with.
+  my ($docu_dir, $docu_name) = split_texi_filename ($Texi2HTML::THISDOC{'input_file_name'});
+
+  # Hard-coded value to indicate if this is a development version
+  # ('devStatus') or stable version ('stableStatus')
+  # TODO: Figure out how to automatically set this value based on the even/odd minor revision number or some other mechanism.
+  $documentstatus = 'devStatus';
+
+  # Create the extra information for the <body> tag.
+  # For example, the development Notation reference in English
+  # will output in HTML as <body lang='en' class='notation devStatus'>
+  $Texi2HTML::Config::BODYTEXT = 'lang="' . $Texi2HTML::THISDOC{current_lang} . '" class="' . $docu_name . ' ' . $documentstatus . '"';
+
 }
 
 
@@ -1506,22 +1803,6 @@ sub generate_ly_toc_entries($$$$$)
   my $is_parent_of_current = $element->{'id'} && $element_path->{$element->{'id'}};
   my $ind = '  ' x $level;
   my $this_css_class = " class=\"";
-  # color indices for the second navigation bar on the website
-  if ($web_manual) {
-      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, 2, 3, 3, 3, 4],
-         );
-      my $addColor = "colorDefault";
-      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;
-  }
   $this_css_class .= $is_parent_of_current ? ' toc_current"' : '"';
   my $entry = "$ind<li$this_css_class>" .
       &$anchor ($element->{'tocid'},
@@ -1594,10 +1875,10 @@ sub lilypond_generate_page_toc_body($)
         # FIXME: add link to main page, really hackily.
         if ($element->{'sectionup'}) {
             # it's not the top element
-            push (@toc_entries, "<li><a href=\"index.html\">Main</a></li>\n");
+            push (@toc_entries, "<li><a href=\"index.html\"><span>LilyPond</span></a></li>\n");
         } else {
             push (@toc_entries,
-                 "<li class=\"toc_current\"><a href=\"index.html\">Main</a></li>\n");
+                 "<li class=\"toc_current\"><a href=\"index.html\"><span>LilyPond</span></a></li>\n");
         }
     } else {
         push (@toc_entries, "<div class=\"contents\">\n");
@@ -1675,14 +1956,14 @@ sub lilypond_print_toc_div ($$)
         if ($have_index_entries) {
           my ($docu_dir, $docu_name) = split_texi_filename ($Texi2HTML::THISDOC{'input_file_name'});
           print $fh '<script language="JavaScript">print_search_field ("' .
-             $Texi2HTML::THISDOC{current_lang} . '", "' . 
+             $Texi2HTML::THISDOC{current_lang} . '", "' .
              $docu_name . "\", " . $bigpage . ")</script>\n";
         }
       }
 
       print $fh '<h4 class="toc_header"> ' . &$anchor('',
                                     $Texi2HTML::HREF{'Top'},
-                                    $topname,
+                                    $topname . " <!-- Sidebar Version Tag  --> ",
                                     'title="Start of the manual"'
                                    ) . "</h4>\n";
     }