* mf/parmesan-clefs.mf: more set_char_box() fixes and code cleanup

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

diff --git a/scm/document-translation.scm b/scm/document-translation.scm
index 95e3cb02f033e148712c12f9b0c39ede53ff73f8..de97c6377c9eeb1de8d707602354e8e4beb35e98 100644 (file)
--- a/scm/document-translation.scm
+++ b/scm/document-translation.scm
@@ -91,7 +91,7 @@
                             context-description-alist))))
           (string-append
            name " is part of contexts: "
-           (human-listify (map ref-ify (map context-name contexts)))))
+           (human-listify (map ref-ify (map symbol->string contexts)))))
         ""
         ))))
 
@@ -143,11 +143,12 @@
         "Revert "
         "Set "
         )
-     "grob-property "
+     "grob-property @code{"
      (symbol->string (cadr body))
-     " in " (symbol->string sym)
+     "} in @ref{" (symbol->string sym)
+     "}"
      (if (not (null? (cddr body)))
-        (string-append " to " (scm->texi (cadr (cdr body))))
+        (string-append " to @code{" (scm->texi (cadr (cdr body))) "}" )
         )
     "\n"
      )
@@ -156,11 +157,11 @@
    ((equal? (object-property sym 'is-grob?) #t) "")
    ((equal? (car op) 'assign)
     (string-append
-     "@item Set translator property "
+     "@item Set translator property @code{"
      (symbol->string (car body))
-     " to "
+     "} to @code{"
      (scm->texi (cadr body))
-     "\n"
+     "}\n"
      )
      )
    )
@@ -170,9 +171,12 @@
 (define (context-doc context-desc)
   (let*
       (
-       (name (cdr (assoc 'type-name context-desc)))
-       (desc-handle (assoc (string->symbol name) context-description-alist))
-       (desc (if (pair? desc-handle)  (cdr desc-handle) ""))
+       (name-sym (cdr (assoc 'type-name context-desc)))
+       (name (symbol->string name-sym))
+       (aliases (map symbol->string (cdr (assoc 'aliases context-desc))))
+       (desc-handle (assoc 'description context-desc))
+       (desc (if (and  (pair? desc-handle) (string? (cdr desc-handle)))
+                (cdr desc-handle) "(not documented)"))
        
        (accepts (cdr (assoc 'accepts context-desc)))
        (consists (append
@@ -182,13 +186,15 @@
                  ))
        (props (cdr (assoc 'property-ops context-desc)))
        (grobs  (context-grobs context-desc))
-       (grob-refs (map (lambda (x) (ref-ify x)) grobs))
-       )
+       (grob-refs (map (lambda (x) (ref-ify x)) grobs)) )
+
     (make <texi-node>
       #:name name
       #: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"
        (human-listify (uniq-list (sort grob-refs string<? )))
        "."
@@ -207,7 +213,7 @@
           (string-append
            "\n\nContext "
            name " can contain \n"
-           (human-listify (map ref-ify (map context-name accepts)))))
+           (human-listify (map ref-ify  (map symbol->string accepts)))))
        
        "\n\nThis context is built from the following engravers: "
        (description-list->texi