patch::: 1.3.122.jcn2

[lilypond.git] / scm / documentation-lib.scm

diff --git a/scm/documentation-lib.scm b/scm/documentation-lib.scm
index e94a23de9afcb6793c72a66add3cdc0a56aa6c67..dd863c9b1760c5ee3ab4db359234d84e022cda3a 100644 (file)
--- a/scm/documentation-lib.scm
+++ b/scm/documentation-lib.scm
@@ -1,4 +1,4 @@
-;;
+;;;
 ;;; documentation-lib.scm -- Assorted Functions for generated documentation
 ;;;
 ;;; source file of the GNU LilyPond music typesetter
@@ -13,6 +13,11 @@
          (uniqued-alist (cdr alist) (cons (car alist) acc)
   ))))
 
+
+(define (alist<? x y)
+  (string<? (symbol->string (car x))
+           (symbol->string (car y))))
+
 (define (processing name)
   (display (string-append "\nProcessing " name " ... ") (current-error-port)))
 
@@ -45,7 +50,7 @@
    "\n@html"
    "\n<hr>"
    "\n@end html"
-   "\n@node " name ",,,"))
+   "\n@node " name))
 
 (define texi-section-alist
   '(
@@ -115,7 +120,12 @@ Add a ref if REF is set
    "\\input texinfo @c -*-texinfo-*-"
    "\n@setfilename " file-name ".info"
    "\n@settitle " name
-   (node "Top") top
+   "\n@dircategory GNU music project"
+   "\n@direntry"
+   ;; prepend GNU for dir, must be unique
+   "\n* GNU " name " (" file-name ").           " name "."
+   "\n@end direntry"
+   (node "Top") ",(lilypond)Features,," top
    "\n@top"
    (texi-section 1 name #f)
    (texi-menu items-alist)
@@ -128,8 +138,8 @@ Add a ref if REF is set
 (define (engraver-name name)
   name)
 
-(define (element-name name)
-  (string-append "Element " name))
+(define (grob-name name)
+  (string-append "Grob " name))
 
 (define (interface-name name)
   name)