From 480b80feab1202afff1d972a1316c4f44d48daf8 Mon Sep 17 00:00:00 2001
From: Reinhold Kainhofer <reinhold@kainhofer.com>
Date: Tue, 30 Sep 2008 22:16:47 +0200
Subject: [PATCH] Docs: Move the @top node before the first content line

texi2html switched to not printing the Top node at the very beginning
any more, but rather at the spot where it really appears in the .tely
file. If there is some content before the @top node, that content
will appear before the headline in the .html file.
---
 Documentation/user/lilypond-learning.tely |  8 +++++---
 Documentation/user/lilypond-program.tely  | 10 ++++++----
 Documentation/user/lilypond.tely          | 12 +++++++-----
 Documentation/user/music-glossary.tely    | 11 ++++++-----
 scm/documentation-generate.scm            | 19 +++++++++----------
 5 files changed, 33 insertions(+), 27 deletions(-)

diff --git a/Documentation/user/lilypond-learning.tely b/Documentation/user/lilypond-learning.tely
index ea074f5c8a..6028455737 100644
--- a/Documentation/user/lilypond-learning.tely
+++ b/Documentation/user/lilypond-learning.tely
@@ -31,6 +31,11 @@
 @omflanguage English
 @end ignore
 
+@ifnottex
+@node Top
+@top GNU LilyPond --- Learning Manual
+@end ifnottex
+
 
 @ifhtml
 This document is also available as a
@@ -98,9 +103,6 @@ Free Documentation License''.
 @end ifnottex
 
 @ifnottex
-@node Top
-@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
 documentation, see @ref{About the documentation}.
diff --git a/Documentation/user/lilypond-program.tely b/Documentation/user/lilypond-program.tely
index b1d8fe1f84..b1dacf2e49 100644
--- a/Documentation/user/lilypond-program.tely
+++ b/Documentation/user/lilypond-program.tely
@@ -32,6 +32,12 @@
 @end ignore
 
 
+@ifnottex
+@node Top
+@top GNU LilyPond --- Application Usage
+@c HJJ: Info needs `@top', which is a synonym for `@unnumbered' in TeX.
+@end ifnottex
+
 @ifhtml
 This document is also available as a
 @uref{source/Documentation/user/lilypond-program.pdf,PDF} and as
@@ -98,10 +104,6 @@ Free Documentation License''.
 @end ifnottex
 
 @ifnottex
-@node Top
-@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{}.
 For more information about how this fits with the other
 documentation, see @rlearning{About the documentation}.
diff --git a/Documentation/user/lilypond.tely b/Documentation/user/lilypond.tely
index 943d09632e..f6d4c1b6cf 100644
--- a/Documentation/user/lilypond.tely
+++ b/Documentation/user/lilypond.tely
@@ -66,6 +66,13 @@ Distributions will want to install lilypond.info in postinstall, doing:
 @omflanguage English
 @end ignore
 
+@ifnottex
+@node Top
+@top GNU LilyPond --- Notation Reference
+@chapheading The music typesetter
+@c HJJ: Info needs `@top', which is a synonym for `@unnumbered' in TeX.
+@end ifnottex
+
 
 @ifhtml
 This document is also available as a
@@ -132,11 +139,6 @@ Free Documentation License''.
 @end ifnottex
 
 @ifnottex
-@node Top
-@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{}.
 For more information about how this fits with the other
 documentation, see @rlearning{About the documentation}.
diff --git a/Documentation/user/music-glossary.tely b/Documentation/user/music-glossary.tely
index a4a8afd309..de41a6dcd9 100644
--- a/Documentation/user/music-glossary.tely
+++ b/Documentation/user/music-glossary.tely
@@ -14,6 +14,12 @@
 * Glossary: (lilypond/music-glossary).  Glossary of music terms.
 @end direntry
 
+@ifnottex
+@node Top
+@top Music Glossary
+@end ifnottex
+
+
 @ifhtml
 This document is also available in
 @uref{source/Documentation/user/music-glossary.pdf,PDF}
@@ -58,11 +64,6 @@ Copyright @copyright{} 1999--2007 by the authors
 @omflanguage English
 @end ignore
 
-@ifnottex
-@node Top
-@top Music Glossary
-@end ifnottex
-
 
 @ifnottex
 
diff --git a/scm/documentation-generate.scm b/scm/documentation-generate.scm
index e486e04f9e..6158fbb21c 100644
--- a/scm/documentation-generate.scm
+++ b/scm/documentation-generate.scm
@@ -90,12 +90,6 @@
 @end tex
 @end iftex
 
-@ifhtml
-This document is also available as a
-@uref{source/Documentation/user/lilypond-internals.pdf,PDF} and as
-@uref{source/Documentation/user/lilypond-internals-big-page.html,one big page}.
-@end ifhtml
-
 @finalout
 
 @titlepage
@@ -113,16 +107,21 @@ For LilyPond version @version{}
 
 @contents
 
-@ifnottex
-")
+@ifnottex")
  out-port)
 
 (define top-node
   (make <texi-node>
     #:name "GNU LilyPond -- Internals Reference"
     #:text
-    (string-append  "
-@end ifnottex
+    (string-append  "@end ifnottex
+
+@ifhtml
+This document is also available as a
+@uref{source/Documentation/user/lilypond-internals.pdf,PDF} and as
+@uref{source/Documentation/user/lilypond-internals-big-page.html,one big page}.
+@end ifhtml
+
 This is the Internals Reference (IR) for version "
 		    (lilypond-version)
 		    " of LilyPond, the GNU music typesetter.")
-- 
2.39.2