From: Reinhold Kainhofer <reinhold@kainhofer.com>
Date: Sat, 23 Aug 2008 15:09:05 +0000 (+0200)
Subject: texi2html: Use an appendix for indices in IR
X-Git-Tag: release/2.11.57-1~20^2~7
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=c8890e89c6dab4207a5b7da0cd79558a233f9b9d;p=lilypond.git

texi2html: Use an appendix for indices in IR
---

diff --git a/scm/documentation-generate.scm b/scm/documentation-generate.scm
index 0ed51f0304..3061c4d5db 100644
--- a/scm/documentation-generate.scm
+++ b/scm/documentation-generate.scm
@@ -172,13 +172,14 @@
      (backend-doc-node)
      (all-scheme-functions-doc)
      (make <texi-node>
-       #:name "Indexes"
+       #:appendix #t
+       #:name "Indices"
        #:text "
-@unnumberedsec Concept index
+@appendixsec Concept index
 
 @printindex cp
 
-@unnumberedsec Function index
+@appendixsec Function index
 
 @printindex fn
 
diff --git a/scm/documentation-lib.scm b/scm/documentation-lib.scm
index 24d94215fa..a9c31057e1 100644
--- a/scm/documentation-lib.scm
+++ b/scm/documentation-lib.scm
@@ -11,6 +11,7 @@
 	     (srfi srfi-1))
 
 (define-class <texi-node> ()
+  (appendix #:init-value #f #:accessor appendix? #:init-keyword #:appendix)
   (children #:init-value '() #:accessor node-children #:init-keyword #:children)
   (text #:init-value "" #:accessor node-text #:init-keyword #:text)
   (name #:init-value "" #:accessor node-name #:init-keyword #:name)
@@ -27,7 +28,7 @@
     "\n@node "
     (node-name node)
     "\n\n"
-    (if appendix
+    (if (or appendix (appendix? node))
         (texi-appendix-section-command level)
         (texi-section-command level))
     " "