From: Reinhold Kainhofer <reinhold@kainhofer.com>
Date: Tue, 30 Sep 2008 16:54:16 +0000 (+0200)
Subject: Docs: Make manual titles consistent ("GNU LilyPond --- Manual Title")
X-Git-Tag: release/2.11.61-1~21
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=c7859653d9e011b140088a39ed1eb2c013b6c0b9;p=lilypond.git

Docs: Make manual titles consistent ("GNU LilyPond --- Manual Title")

In the IR use a proper @top node with the IR title
---

diff --git a/Documentation/user/lilypond-learning.tely b/Documentation/user/lilypond-learning.tely
index 8d0bd1eb34..ea074f5c8a 100644
--- a/Documentation/user/lilypond-learning.tely
+++ b/Documentation/user/lilypond-learning.tely
@@ -99,7 +99,7 @@ Free Documentation License''.
 
 @ifnottex
 @node Top
-@top GNU LilyPond --- learning manual
+@top GNU LilyPond --- Learning Manual
 
 This is the Learning Manual (LM) for GNU LilyPond version @version{}.
 For more information about how this fits with the other
diff --git a/Documentation/user/lilypond-program.tely b/Documentation/user/lilypond-program.tely
index 86beebdd49..b1d8fe1f84 100644
--- a/Documentation/user/lilypond-program.tely
+++ b/Documentation/user/lilypond-program.tely
@@ -99,7 +99,7 @@ Free Documentation License''.
 
 @ifnottex
 @node Top
-@top GNU LilyPond --- program usage
+@top GNU LilyPond --- Application Usage
 @c HJJ: Info needs `@top', which is a synonym for `@unnumbered' in TeX.
 
 This is the Application Usage (AU) manual for GNU LilyPond version @version{}.
diff --git a/Documentation/user/lilypond.tely b/Documentation/user/lilypond.tely
index 5b16a3b6a4..943d09632e 100644
--- a/Documentation/user/lilypond.tely
+++ b/Documentation/user/lilypond.tely
@@ -133,7 +133,8 @@ Free Documentation License''.
 
 @ifnottex
 @node Top
-@top GNU LilyPond --- The music typesetter
+@top GNU LilyPond --- Notation Reference
+@titlefont The music typesetter
 @c HJJ: Info needs `@top', which is a synonym for `@unnumbered' in TeX.
 
 This is the Notation Reference (NR) for GNU LilyPond version @version{}.
diff --git a/Documentation/user/music-glossary.tely b/Documentation/user/music-glossary.tely
index a7e163a490..d5ac7e32a5 100644
--- a/Documentation/user/music-glossary.tely
+++ b/Documentation/user/music-glossary.tely
@@ -60,7 +60,7 @@ Copyright @copyright{} 1999--2007 by the authors
 
 @ifnottex
 @node Top
-@top Music glossary
+@top Music Glossary
 @end ifnottex
 
 
diff --git a/input/lsr/lilypond-snippets.tely b/input/lsr/lilypond-snippets.tely
index 678d93b87c..ff690e6777 100644
--- a/input/lsr/lilypond-snippets.tely
+++ b/input/lsr/lilypond-snippets.tely
@@ -108,7 +108,7 @@ or figure for each example to see the corresponding input file.
 
 @ifnottex
 @node Top
-@top LilyPond Snippet List
+@top GNU LilyPond --- Snippets List
 
 This document shows a selected set of LilyPond snippets from the
 @uref{http://lsr@/.dsi@/.unimi@/.it,LilyPond Snippet Repository}
diff --git a/scm/documentation-generate.scm b/scm/documentation-generate.scm
index 36af5b3a69..e486e04f9e 100644
--- a/scm/documentation-generate.scm
+++ b/scm/documentation-generate.scm
@@ -119,11 +119,11 @@ For LilyPond version @version{}
 
 (define top-node
   (make <texi-node>
-    #:name "Top"
+    #:name "GNU LilyPond -- Internals Reference"
     #:text
     (string-append  "
 @end ifnottex
-This is the program reference for version "
+This is the Internals Reference (IR) for version "
 		    (lilypond-version)
 		    " of LilyPond, the GNU music typesetter.")
 
diff --git a/scm/documentation-lib.scm b/scm/documentation-lib.scm
index 4a25f5420c..148728abb6 100644
--- a/scm/documentation-lib.scm
+++ b/scm/documentation-lib.scm
@@ -26,8 +26,8 @@
   (display
    (string-append
     "\n@node "
-    (node-name node)
-    "\n\n"
+    (if (= level 0) "Top" (node-name node))
+    "\n"
     (if (appendix? node)
         (texi-appendix-section-command level)
         (texi-section-command level))