*** empty log message ***

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

diff --git a/scm/document-translation.scm b/scm/document-translation.scm
index 1fa883a977f846fb7151c8cf67113bd8cb9f2812..2eac4bfae1fde4e053c8374d22fc48bf2855ce8d 100644 (file)
--- a/scm/document-translation.scm
+++ b/scm/document-translation.scm
@@ -74,8 +74,8 @@
 
      (if in-which-contexts
         (let*
-            ((paper-alist (My_lily_parser::paper_description))
-             (context-description-alist (map cdr paper-alist))
+            ((layout-alist (ly:output-description $defaultlayout))
+             (context-description-alist (map cdr layout-alist))
              (contexts
               (apply append
                      (map
@@ -115,7 +115,6 @@
     ))
 
 ;; Second level, part of Context description
-
 (define name->engraver-table (make-vector 61 '()))
 (map
  (lambda (x)
@@ -133,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)
      )
     ))
@@ -205,8 +204,10 @@
       #:text
       (string-append 
        desc
-       "\n\n This context is also known as: \n\n"
-       (human-listify aliases)
+       (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<? )))
        "."
@@ -229,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)
@@ -260,11 +261,11 @@
 
 (define (all-contexts-doc)
   (let* (
-        (paper-alist
-         (sort (My_lily_parser::paper_description)
+        (layout-alist
+         (sort (ly:output-description $defaultlayout)
                (lambda (x y) (symbol<? (car x) (car y)))))
-        (names (sort (map symbol->string (map car paper-alist)) string<?))
-        (contexts (map cdr paper-alist))
+        (names (sort (map symbol->string (map car layout-alist)) string<?))
+        (contexts (map cdr layout-alist))
         )
 
     (make <texi-node>
@@ -286,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)))