Improve formatting of lilypond-internals.

diff --git a/scm/document-translation.scm b/scm/document-translation.scm
index 47848728972c5beec4663ea975a04dc8d5be4ddb..75e00a009915fc0188a8f27d2ddd8a0984d1c51f 100644 (file)
--- a/scm/document-translation.scm
+++ b/scm/document-translation.scm
@@ -127,12 +127,14 @@
 
       (string-append
        "@item Set "
-       (format "grob-property @code{~a} " (string-join (map symbol->string path) " "))
-       (format " in @ref{~a} to @code{~a}.  " context-sym (scm->texi value))
+       (format "grob-property @code{~a} "
+              (string-join (map symbol->string path) " "))
+       (format "in @ref{~a} to ~a."
+              context-sym (scm->texi value))
        "\n")))
      ((equal? (object-property context-sym 'is-grob?) #t) "")
      ((equal? tag 'assign)
-      (format "@item Set translator property @code{~a} to @code{~a}"
+      (format "@item Set translator property @code{~a} to ~a.\n"
              context-sym
              (scm->texi (car args))))
      )))
@@ -158,13 +160,17 @@
       (string-append 
        desc
        (if (pair? aliases)
-          (string-append "\n\n This context also accepts commands for the following context(s):\n\n"
-                         (human-listify aliases))
+          (string-append
+           "\n\nThis context also accepts commands for the following context(s):\n\n"
+           (human-listify aliases)
+           ".")
           "")
-       "\n\nThis context creates the following layout objects: \n\n"
-       (human-listify (uniq-list (sort grob-refs string<? )))
+
+       "\n\nThis context creates the following layout objects:\n\n"
+       (human-listify (uniq-list (sort grob-refs string<?)))
        "."
-       (if (pair? props)
+
+       (if (and (pair? props) (not (null? props)))
           (string-append
            "\n\nThis context sets the following properties:\n"
            "@itemize @bullet\n"
@@ -173,15 +179,19 @@
           "")
        
        (if (null? accepts)
-          "\n\nThis context is a `bottom' context; it can not contain other contexts."
+          "\n\nThis context is a `bottom' context; it cannot contain other contexts."
           (string-append
            "\n\nContext "
-           name " can contain \n"
-           (human-listify (map ref-ify (map symbol->string accepts)))))
+           name
+           " can contain\n"
+           (human-listify (map ref-ify (map symbol->string accepts)))
+           "."))
        
-       "\n\nThis context is built from the following engravers: "
-       (description-list->texi
-       (map document-engraver-by-name consists))))))
+       (if (null? consists)
+          ""
+          (string-append
+           "\n\nThis context is built from the following engravers:"
+           (description-list->texi (map document-engraver-by-name consists))))))))
 
 (define (engraver-grobs grav)
   (let* ((eg (if (symbol? grav)

diff --git a/scm/documentation-generate.scm b/scm/documentation-generate.scm
index fe37a366ba961c00ab62473af84ede9c550980a7..e49adf59143b1bcac39be96d970dbecb9bf4e620 100644 (file)
--- a/scm/documentation-generate.scm
+++ b/scm/documentation-generate.scm
@@ -171,10 +171,6 @@
 
 @printindex cp
 
-@unnumbered Variable index
-
-@printindex vr
-
 @unnumbered Function index
 
 @printindex fn
@@ -183,7 +179,3 @@
 
 (dump-node top-node out-port 0)
 (newline (current-error-port))
-
-
-
-