(font-command): Fix, again.

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

diff --git a/scm/document-backend.scm b/scm/document-backend.scm
index 484c65eaceccb4b83b5806f17bc3459a80449daf..ca5217ec34636cceeb0f3421608f9d9fa4fa8c67 100644 (file)
--- a/scm/document-backend.scm
+++ b/scm/document-backend.scm
@@ -6,28 +6,6 @@
 ;;; Jan Nieuwenhuizen <janneke@gnu.org>
 
 
-;;; This file generates documentation for the backend of lilypond.
-
-;; alist of property descriptions
-
-;;
-"
-TODO:
-
-
-Grob bla
-
-Created by:
-
-  * preset properties + explanation
-
-Interfaces:
-
-  * properties available.
-
-"
-
-
 (define (interface-doc-string interface grob-description)
   (let*
       ((name (car interface))
@@ -43,11 +21,19 @@ Interfaces:
 
        (string-append
        desc
-       "\n\n@unnumberedsubsubsec User settable properties:\n"
-       (description-list->texi user-propdocs)
 
-       "\n\n@unnumberedsubsubsec Internal properties: \n"
-       (description-list->texi internal-propdocs)
+       (if (pair? uprops)
+           (string-append
+           "\n\n@unnumberedsubsubsec User settable properties:\n"
+           (description-list->texi user-propdocs))
+           "")
+
+       (if (pair? iprops)
+           (string-append
+            "\n\n@unnumberedsubsubsec Internal properties: \n"
+            (description-list->texi internal-propdocs)
+            )
+           "")
        )
     ))
 
@@ -85,8 +71,12 @@ Interfaces:
 
              (human-listify
               (map ref-ify
-                   (map symbol->string
-                        (hashq-ref iface->grob-table (car interface) '() )))))
+                   (sort 
+                    (map symbol->string
+                         (hashq-ref iface->grob-table (car interface) '() ))
+                    string<?)
+                   
+                   )))
 
       )))
 
@@ -125,7 +115,7 @@ node."
       #:name namestr
       #:text
       (string-append
-       namestr " grobs are created by: "
+       namestr " objects are created by: "
        (human-listify (map ref-ify
                           (map engraver-name engraver-names)))
        "\n\nStandard settings: \n\n"
@@ -210,9 +200,9 @@ node."
     (make <texi-node>
       #:name "User backend properties"
       #:desc "All tunable properties in a big list"
-      #:text (backend-properties-doc-string all-internal-grob-properties))
+      #:text (backend-properties-doc-string all-user-grob-properties))
     (make <texi-node>
       #:name "Internal backend properties"
       #:desc "All internal layout properties in a big list"
-      #:text (backend-properties-doc-string all-user-grob-properties))
+      #:text (backend-properties-doc-string all-internal-grob-properties))
   )))