X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fdocument-music.scm;h=18af634e19443852a9cf6dd997e5ef48f69d5d9d;hb=a999ec6e8af5951c122366fc5a80d66cec2ff6f0;hp=c7979b59b1e1c05255803f67d0178198381571ca;hpb=d02fb0875e52111272553a47e657b6f58e136e22;p=lilypond.git

diff --git a/scm/document-music.scm b/scm/document-music.scm
index c7979b59b1..18af634e19 100644
--- a/scm/document-music.scm
+++ b/scm/document-music.scm
@@ -1,45 +1,35 @@
+;;;; document-markup.scm -- part of generated backend documentation
+;;;;
+;;;;  source file of the GNU LilyPond music typesetter
+;;;; 
+;;;; (c) 1998--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+;;;;                 Jan Nieuwenhuizen <janneke@gnu.org>
 
 (define (music-props-doc)
   (make <texi-node>
     #:name "Music properties"
     #:desc "All music properties, including descriptions"
     #:text
-  (let* (
-	 (ps (sort (map symbol->string all-music-properties) string<?))
-	 (descs (map (lambda (prop)
-		       (property->texi 'music (string->symbol prop)))
-		     ps))
-	 (texi (description-list->texi descs))
-	 )
-    texi)
-  ))
+    (let* ((ps (sort (map symbol->string all-music-properties) string<?))
+	   (descs (map (lambda (prop)
+			 (property->texi 'music (string->symbol prop)))
+		       ps))
+	   (texi (description-list->texi descs)))
+      texi)))
 
 (define music-types->names (make-vector 61 '()))
 (map (lambda (entry)
-       (let*
-	   (
-	    (types (cdr (assoc 'types (cdr entry) )))
-	    )
+       (let* ((types (cdr (assoc 'types (cdr entry)))))
 	 (map (lambda (type)
 		(hashq-set! music-types->names type
 			    (cons (car entry)
-				  (hashq-ref music-types->names type '())))
-			    
-		) types)
-	 
-	 ))
-  music-descriptions)
-
-
-(define (hash-table->alist t)
-  "Convert table t to list"
-  (apply append
-	 (vector->list t)
-  ))
+				  (hashq-ref music-types->names type '()))))
+	      types)))
+     music-descriptions)
 
 (define (strip-description x)
-    (cons (symbol->string (car x))
-	  ""))
+  (cons (symbol->string (car x))
+	""))
 
 (define (music-type-doc entry)
   (make <texi-node>
@@ -52,7 +42,7 @@
      (human-listify
       (sort
        (map (lambda (x) (ref-ify (symbol->string x)))
-	     (cdr entry)) string<?))
+	    (cdr entry)) string<?))
 
      "\n\nAccepted by: "
      (human-listify
@@ -61,8 +51,7 @@
 		(map ly:translator-name
 		     (filter
 		      (lambda (x) (engraver-accepts-music-type? (car entry) x)) all-engravers-list)))))
-     "\n\n"
-     )))
+     "\n\n")))
 
 (define (music-types-doc)
   (make <texi-node>
@@ -70,16 +59,12 @@
     #:children 
     (map music-type-doc
 	 (sort
-	  (hash-table->alist music-types->names) alist<?))
-    ))
+	  (hash-table->alist music-types->names) alist<?))))
 
 (define (music-doc-str obj)
-  (let*
-      (
-       (namesym  (car obj))
-       (props (cdr obj))
-       (types (cdr (assoc  'types props)))
-       )
+  (let* ((namesym  (car obj))
+	 (props (cdr obj))
+	 (types (cdr (assoc  'types props))))
     
     (string-append
      (object-property namesym 'music-description)
@@ -90,31 +75,26 @@
      (human-listify
       (map ref-ify
 	   (map symbol->string (map ly:translator-name
-		(filter
-		 (lambda (x) (engraver-accepts-music-types? types x)) all-engravers-list)))))
+				    (filter
+				     (lambda (x) (engraver-accepts-music-types? types x)) all-engravers-list)))))
      "\n\nProperties: \n"
      (description-list->texi
       (map
-       (lambda (x) (document-property x 'music props))
-       (map car props)))
-     
-     )
-    ))
+       (lambda (x) (property->texi 'music  x props))
+       (map car props))))))
 
 (define (music-object-doc obj)
   (make <texi-node>
     #:name (symbol->string (car obj))
-    #:text (music-doc-str obj)
-    ))
+    #:text (music-doc-str obj)))
 
 (define (music-expressions-doc)
   (make <texi-node>
     #:name "Music expressions"
     #:desc "Objects that represent music."
     #:children
-     (map music-object-doc music-descriptions)
-  ))
-  
+    (map music-object-doc music-descriptions)))
+
 (define (music-doc-node)
   (make <texi-node>
     #:name "Music definitions"
@@ -123,9 +103,4 @@
     (list
      (music-expressions-doc)
      (music-types-doc)
-     (music-props-doc))
-    ))
-
-  
-  
-
+     (music-props-doc))))