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

[lilypond.git] / scm / documentation-lib.scm

diff --git a/scm/documentation-lib.scm b/scm/documentation-lib.scm
index 7f82049339e7b50383a111101608d5419076cc5e..f9384cd61ab4123d2cb770c053f0f586d9b8838b 100644 (file)
--- a/scm/documentation-lib.scm
+++ b/scm/documentation-lib.scm
@@ -3,10 +3,13 @@
 ;;;
 ;;; source file of the GNU LilyPond music typesetter
 ;;; 
-;;; (c) 2000--2001 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+;;; (c)  2000--2003 Han-Wen Nienhuys <hanwen@cs.uu.nl>
 ;;; Jan Nieuwenhuizen <janneke@gnu.org>
 
-(use-modules (oop goops))
+(use-modules (oop goops)
+            (srfi srfi-13)
+            (srfi srfi-1)
+            )
 
 (define-class <texi-node> ()
   (children #:init-value '() #:accessor node-children #:init-keyword #:children)
@@ -24,9 +27,7 @@
 (define (dump-node node port level)
   (display
    (string-append
-    "\n@html"
-    "\n<hr>"
-    "\n@end html\n@node "
+    "\n@node "
     (node-name node)
     "\n\n"
     (texi-section-command level) " "
@@ -114,7 +115,7 @@
   (apply string-append
         (map (lambda (x)
                (string-append
-               (pad-string-to 
+               (string-pad-right 
                 (string-append "\n* " (car x) ":: ")
                 (+ maxwid 8)
                 )
@@ -178,14 +179,12 @@
   (display (string-append "\nWriting " x " ... ") (current-error-port)))
 
 
-
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; property  stuff.
 
 (define (property->texi where sym)
   "Document SYM for WHERE (which can be translation, backend, music)"
-  (let* (
-        (name (symbol->string sym))
+  (let* ((name (symbol->string sym))
         (type?-name (string->symbol
                      (string-append (symbol->string where) "-type?")))
         (doc-name (string->symbol                  
@@ -195,8 +194,8 @@
         (desc (object-property sym doc-name)))
 
     (if (eq? desc #f)
-       (error "No description for property ~S" sym)
-       )
+       (error "No description for property ~S" sym))
+       
     (cons
      (string-append "@code{" name "} "
                    "(" typename ")")
@@ -211,7 +210,6 @@
        "(unset)"
        (scm->texi (cdr handle)))))
 
-
 (define (backend-property->texi sym)
   (property->texi 'backend sym))
 
@@ -222,14 +220,11 @@ containing default values."
       ((without (property->texi where sym))
        (rv
 
-    (cons (car without)
-         (if (eq? alist #f)
-             (cdr without)
-             (string-append
-              (cdr without)
-              "\nDefault value: "
-              (document-property-value sym alist)))))
-
-       )
-;    (display rv)
-    rv  ))
+       (cons (car without)
+             (if (eq? alist #f)
+                 (cdr without)
+                 (string-append
+                  (cdr without)
+                  "\nDefault value: "
+                  (document-property-value sym alist))))))
+    rv))