From 1f9e60989ccc7b4b82c4f2e0284586c1f9d1d195 Mon Sep 17 00:00:00 2001
From: Reinhold Kainhofer <reinhold@kainhofer.com>
Date: Mon, 6 Oct 2008 16:52:41 +0200
Subject: [PATCH] texi2html: Add up link to Docs index, remove "GNU LilyPond"
 from TOC header

---
 lilypond-texi2html.init | 22 +++++++++++++++++++++-
 1 file changed, 21 insertions(+), 1 deletion(-)

diff --git a/lilypond-texi2html.init b/lilypond-texi2html.init
index 8587ca76e5..60a13ed342 100644
--- a/lilypond-texi2html.init
+++ b/lilypond-texi2html.init
@@ -620,9 +620,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) {
-- 
2.39.5