* scm/music-functions.scm (direction-polyphonic-grobs): Set

[lilypond.git] / scm / document-translation.scm

diff --git a/scm/document-translation.scm b/scm/document-translation.scm
index f1e509eeb8c52e196bc39128e1c855204ef38539..222ee0985164ac90413bd6c08454c2dfc39a469c 100644 (file)
--- a/scm/document-translation.scm
+++ b/scm/document-translation.scm
@@ -1,9 +1,9 @@
-;;; engraver-doumentation-lib.scm -- Functions for engraver documentation
-;;;
-;;; source file of the GNU LilyPond music typesetter
-;;; 
-;;; (c)  2000--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
-;;; Jan Nieuwenhuizen <janneke@gnu.org>
+;;;; document-translation.scm -- Functions for engraver documentation
+;;;;
+;;;; source file of the GNU LilyPond music typesetter
+;;;; 
+;;;; (c)  2000--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+;;;;                 Jan Nieuwenhuizen <janneke@gnu.org>
 
 
 (define (engraver-makes-grob? name-symbol grav)
@@ -65,7 +65,7 @@
      (if  (null? grobs)
          ""
          (string-append
-          "This engraver creates the following grobs: \n "
+          "This engraver creates the following layout objects: \n "
           (human-listify (map ref-ify (uniq-list (sort grobs string<? ))))
           ".")
          )
@@ -74,7 +74,7 @@
 
      (if in-which-contexts
         (let*
-            ((paper-alist (My_lily_parser::paper_description))
+            ((paper-alist (ly:output-description $defaultpaper))
              (context-description-alist (map cdr paper-alist))
              (contexts
               (apply append
@@ -97,8 +97,10 @@
                               '())))
                       context-description-alist))))
           (string-append
-           name-str " is part of contexts: "
-           (human-listify (map ref-ify (map symbol->string contexts)))))
+           "@code{" name-str "} is part of contexts: "
+           (human-listify (map ref-ify
+                               (sort
+                               (map symbol->string contexts) string<?)))))
         ""
         ))))
 
@@ -113,7 +115,6 @@
     ))
 
 ;; Second level, part of Context description
-
 (define name->engraver-table (make-vector 61 '()))
 (map
  (lambda (x)
@@ -131,7 +132,7 @@
        (eg (find-engraver-by-name name ))
        )
 
-    (cons (symbol->string name )
+    (cons (string-append "@code{" (ref-ify (symbol->string name)) "}")
          (engraver-doc-string eg #f)
      )
     ))
@@ -203,9 +204,11 @@
       #:text
       (string-append 
        desc
-       "\n\n This context is also known as: \n\n"
-       (human-listify aliases)
-       "\n\nThis context creates the following grobs: \n\n"
+       (if (pair? aliases)
+          (string-append "\n\n This context is also known as: \n\n"
+                         (human-listify aliases))
+          "")
+       "\n\nThis context creates the following layout objects: \n\n"
        (human-listify (uniq-list (sort grob-refs string<? )))
        "."
        (if (pair? props)
@@ -227,7 +230,7 @@
        
        "\n\nThis context is built from the following engravers: "
        (description-list->texi
-             (map document-engraver-by-name consists))
+       (map document-engraver-by-name consists))
        ))))
 
 (define (engraver-grobs grav)
@@ -259,7 +262,7 @@
 (define (all-contexts-doc)
   (let* (
         (paper-alist
-         (sort (My_lily_parser::paper_description)
+         (sort (ly:output-description $defaultpaper)
                (lambda (x y) (symbol<? (car x) (car y)))))
         (names (sort (map symbol->string (map car paper-alist)) string<?))
         (contexts (map cdr paper-alist))
@@ -284,6 +287,7 @@
   (make <texi-node>
     #:name "Engravers"
     #:desc "All separate engravers"
+    #:text "See @usermanref{Modifying context plug-ins}."
     #:children
     (map engraver-doc all-engravers-list)))