X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lilypond-texi2html.init;h=7f4c32a1750f29eb6b083c8c9bdc256f481eeee2;hb=c1aed27c7fc6f9315d2d617e39a3dddabfae491a;hp=a02ecf71dd0551c9fdef01d8b43b79c4a178044c;hpb=b55934d56fe2b111ef3b487292c1bc15fe88e819;p=lilypond.git

diff --git a/lilypond-texi2html.init b/lilypond-texi2html.init
index a02ecf71dd..7f4c32a175 100644
--- a/lilypond-texi2html.init
+++ b/lilypond-texi2html.init
@@ -74,14 +74,16 @@ package Texi2HTML::Config;
 #############################################################################
 
 @Texi2HTML::Config::CSS_REFS      = (
-    {FILENAME => "lilypond.css", TITLE => "Default Style" }
+    {FILENAME => "lilypond-mccarty.css", TITLE => "Patrick McCarty's design"}
 );
 @Texi2HTML::Config::ALT_CSS_REFS      = (
-    {FILENAME => "lilypond-mccarty.css", TITLE => "Patrick McCarty's design"}
+    {FILENAME => "lilypond.css", TITLE => "Andrew Hawryluk's design" },
+    {FILENAME => "lilypond-blue.css", TITLE => "Kurt Kroon's blue design" },
 );
 $Texi2HTML::Config::USE_ACCESSKEY = 1;
 $Texi2HTML::Config::USE_LINKS     = 1;
 $Texi2HTML::Config::USE_REL_REV   = 1;
+$Texi2HTML::Config::SPLIT_INDEX   = 0;
 $Texi2HTML::Config::SEPARATED_FOOTNOTES = 0; # Print footnotes on same page, not separated
 if ($Texi2HTML::Config::SPLIT eq 'section') {
   $Texi2HTML::Config::element_file_name    = \&lilypond_element_file_name;
@@ -107,6 +109,7 @@ $Texi2HTML::Config::paragraph          = \&makeinfo_like_paragraph;
 $Texi2HTML::Config::complex_format_map->{'example'} = {
   'begin' => q{"<blockquote><pre class=\"example\">"},
   'end' => q{"</pre></blockquote>\n"},
+  'style' => 'code',
  };
 
 %Texi2HTML::config::misc_pages_targets = (
@@ -618,9 +621,29 @@ sub lilypond_print_toc_div ($$)
   if (@lines) {
   
     print $fh "\n\n<div id=\"tocframe\">\n";
+    
+    # Remove the leading "GNU LilyPond --- " from the manual title
+    my $topname = $Texi2HTML::NAME{'Top'};
+    $topname =~ s/^GNU LilyPond(:| &[mn]dash;) //;
+    
+    # construct the top-level Docs index (relative path and including language!)
+    my $lang = $Texi2HTML::THISDOC{current_lang};
+    if ($lang and $lang ne "en") {
+      $lang .= ".";
+    } else {
+      $lang = "";
+    }
+    my $reldir = "";
+    $reldir = "../" if ($Texi2HTML::Config::SPLIT eq 'section');
+    my $uplink = $reldir."index.${lang}html";
+
+    print $fh "<p class=\"toc_uplink\"><a href=\"$uplink\" 
+         title=\"Documentation Index\">&lt;&lt; Back to 
+         Documentation Index</a></p>\n";
+
     print $fh '<h4 class="toc_header"> ' . &$anchor('',
                                     $Texi2HTML::HREF{'Top'},
-                                    $Texi2HTML::NAME{'Top'},
+                                    $topname,
                                     'title="Start of the manual"'
                                    ) . "</h4>\n";
     foreach my $line (@lines) {