Add Jean-Charles as French docs section titles translator

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

diff --git a/scm/document-music.scm b/scm/document-music.scm
index b720b592f722a64a3bef973157b15b6371b05ef8..4c12b6b1e9a9e39621f688760bec1b315f55ec5a 100644 (file)
--- a/scm/document-music.scm
+++ b/scm/document-music.scm
@@ -2,13 +2,13 @@
 ;;;;
 ;;;;  source file of the GNU LilyPond music typesetter
 ;;;; 
-;;;; (c) 1998--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
+;;;; (c) 1998--2007 Han-Wen Nienhuys <hanwen@xs4all.nl>
 ;;;;                 Jan Nieuwenhuizen <janneke@gnu.org>
 
 (define (music-props-doc)
   (make <texi-node>
     #:name "Music properties"
-    #:desc "All music properties, including descriptions"
+    #:desc "All music properties, including descriptions."
     #:text
     (let* ((ps (sort (map symbol->string all-music-properties) string<?))
           (descs (map (lambda (prop)
@@ -42,11 +42,12 @@
     (string-append
      "\nMusic event type @code{"
      (symbol->string (car entry))
-     "} is in Music objects of type "
+     "} is in music objects of type "
      (human-listify
       (sort
        (map (lambda (x) (ref-ify (symbol->string x)))
            (cdr entry)) string<?))
+     "."
 
      "\n\nAccepted by: "
      (human-listify
@@ -55,6 +56,7 @@
                (map ly:translator-name
                     (filter
                      (lambda (x) (engraver-accepts-music-type? (car entry) x)) all-engravers-list)))))
+     "."
      "\n\n")))
 
 (define (music-types-doc)
@@ -74,22 +76,24 @@
                         (string-append
                          "\n\nEvent classes:\n"
                          (human-listify (map ref-ify (map symbol->string classes)))
-                         "\n\n"
+                         "."
+
                          "\n\nAccepted by: "
                          (human-listify
                           (map ref-ify
                                (map symbol->string (map ly:translator-name
                                                         (filter
-                                                         (lambda (x) (engraver-accepts-music-types? classes x)) all-engravers-list))))))
+                                                         (lambda (x) (engraver-accepts-music-types? classes x)) all-engravers-list)))))
+                         ".")
                         "")))
 
     (string-append
      (object-property namesym 'music-description)
      event-texi
-     "\n\nProperties: \n"
+     "\n\nProperties:\n"
      (description-list->texi
       (map
-       (lambda (x) (property->texi 'music  x props))
+       (lambda (x) (property->texi 'music x props))
        (map car props))))))
 
 (define (music-object-doc obj)
@@ -107,7 +111,7 @@
 (define (music-doc-node)
   (make <texi-node>
     #:name "Music definitions"
-    #:desc "Definition of the Input data structures"
+    #:desc "Definition of the input data structures."
     #:children
     (list
      (music-expressions-doc)