texi2html: Use an appendix for indices in IR

diff --git a/scm/documentation-generate.scm b/scm/documentation-generate.scm
index 0ed51f03043e5beefb2e96807fab6008a527b77c..3061c4d5dbdebe29dd08c5b7f443bc472adda051 100644 (file)
--- 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 24d94215fa19c00ae70b3e5fa808f79aad2d9ed2..a9c31057e1a961c03f7f1a02762fd2a36f56107a 100644 (file)
--- 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))
     " "