* lily/lily-guile.cc (parse_symbol_list): strip spaces at the end.

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

diff --git a/scm/document-backend.scm b/scm/document-backend.scm
index 94047ab8f8443600268230ae5ba9cb3c4be97779..a8df442aa3f7cb3438784a09a537bf49e2acea7a 100644 (file)
--- a/scm/document-backend.scm
+++ b/scm/document-backend.scm
@@ -30,21 +30,17 @@ Interfaces:
 
 (define (interface-doc-string interface grob-description)
   (let*
-      (
-       (name (car interface))
+      ((name (car interface))
        (desc (cadr interface))
        (props (sort (caddr interface) symbol<?))
        (docfunc (lambda (pr)
                  (document-property
-                  pr 'backend grob-description )))
-       (propdocs (map docfunc props))
-       )
-    
+                  pr 'backend grob-description)))
+       (propdocs (map docfunc props)))
     (string-append
      desc
      "\n\n"
      (description-list->texi propdocs))
-
     ))
 
 
@@ -99,17 +95,14 @@ node."
        (ifaces (map lookup-interface (cdr (assoc 'interfaces meta))))
        (ifacedoc (map (lambda (iface)
                        (string-append
-"@html
-<hr>
-@end html
-
+"
 @subsubheading "
 (ref-ify (symbol->string (car iface)))
 
 "\n\n"
                        (interface-doc-string iface description)))
                      (reverse ifaces)))
-       (engravers (filter-list
+       (engravers (filter
                   (lambda (x) (engraver-makes-grob? name x)) all-engravers-list))
        (namestr (symbol->string name))
        (engraver-names (map ly:translator-name engravers))
@@ -187,8 +180,8 @@ node."
        (texi (description-list->texi descs))
        )
     (make <texi-node>
-      #:name "backend properties"
-      #:desc "all the properties in use as grob properties"
+      #:name "All backend properties"
+      #:desc "All grob properties in a big list"
       #:text texi)
   ))