lilypond-1.5.14

diff --git a/Documentation/user/refman.itely b/Documentation/user/refman.itely
index 10a69dcbfc36c8349381f880b79a0df210d6703b..e9ba808c3c6378ace2201ec14d89d556b4df39c5 100644 (file)
--- a/Documentation/user/refman.itely
+++ b/Documentation/user/refman.itely
@@ -1004,7 +1004,6 @@ beams) can be tweaked through grob-properties @code{height} and
 span. Both are measured in half staff-spaces, @code{staff-position=0}
 corresponds to the middle staff line.
 
-
 Set @code{height} to zero, to get horizontal beams:
 
 @lilypond[fragment,relative,verbatim]
@@ -1021,7 +1020,9 @@ horizontal, falls two staff spaces:
   \property Voice.Beam \set #'height = #-4
   [c8 c] 
 @end lilypond
-@cindex @code{default-neutral-direction}
+
+@c TODO -> why this ref? Document? 
+@cindex @code{neutral-direction}
 
 @node Expressive marks
 @section Expressive marks

diff --git a/input/regression/stem-direction-down.ly b/input/regression/stem-direction-down.ly
index 857dea910d1f9ca59c6f8c8ad51f2e4bc2da9618..74ecc47b3ae0a33d5af20b28284c5f88ac77ed9b 100644 (file)
--- a/input/regression/stem-direction-down.ly
+++ b/input/regression/stem-direction-down.ly
@@ -8,7 +8,7 @@ texidoc="Similarly, if @code{'neutral-direction} is set to @code{-1}.  "
 
 \score{
        \notes\relative c{
-       \property Voice.Stem \override #'default-neutral-direction = #-1
+       \property Voice.Stem \override #'neutral-direction = #-1
                 
            b''4 ~ b8()b8 e4 e,
        }

diff --git a/input/test/beam-neutral-direction.ly b/input/test/beam-neutral-direction.ly
index 2e41028339574c8d2335f32c13f1d1f9b8a706a4..422b54bc6658872eeeeabf4ea109e1fb1a457d25 100644 (file)
--- a/input/test/beam-neutral-direction.ly
+++ b/input/test/beam-neutral-direction.ly
@@ -3,7 +3,7 @@
 
 fragment = \notes {
   [b''8 b]
-  \property Voice.Beam \set #'default-neutral-direction = #-1
+  \property Voice.Beam \set #'neutral-direction = #-1
   [b b]
 }
 

diff --git a/input/test/default-neutral-dir.ly b/input/test/default-neutral-dir.ly
index 2bbfff601a10bf6926997768fba50e1f397bb553..11e51df31c6e24efd7b79fbb21c9ea6882da66ca 100644 (file)
--- a/input/test/default-neutral-dir.ly
+++ b/input/test/default-neutral-dir.ly
@@ -2,12 +2,12 @@
 \header { texidoc = "
 The direction of a perfectly centred beams can be
 controlled through @code{Voice.Beam}'s grob-property
-@code{default-neutral-direction}
+directly@code{neutral-direction}
 "}
 
 \paper { linewidth = -1.}
 \score {\notes \relative c {
   [b''8 b]
-  \property Voice.Beam \set #'default-neutral-direction = #-1
+  \property Voice.Beam \set #'neutral-direction = #-1
   [b b]
 }}

diff --git a/scm/backend-documentation-lib.scm b/scm/backend-documentation-lib.scm
index 63d2937e15827bb2137fe05aed656202c83004dd..3ea5632c0bb37965095eadd741e264244e176a8c 100644 (file)
--- a/scm/backend-documentation-lib.scm
+++ b/scm/backend-documentation-lib.scm
@@ -11,6 +11,10 @@
 ;; alist of property descriptions
 
 
+;;;;;; TODO: sort out symbol vs. string stuff.
+;;;;;; TODO: use flatten write iso. string-append; might be possible to fold
+;;;;;; in symbol->string integrally.
+
 (define (backend-property->texi sym)
   (let* ((name (symbol->string sym))
        (type (object-property sym 'backend-type?))
@@ -84,21 +88,21 @@
      (node (grob-name name))
      (texi-section 2 (grob-name name) #f)
      "\n"
-     (let* ((grob (string->symbol name))
+     (let* ((grob name)
            (engravers (filter-list
                        (lambda (x) (engraver-makes-grob? name x)) all-engravers-list))
            (engraver-names (map Translator::name engravers))
            )
 
        (string-append
-       name " grobs are created by: "
+       (symbol->string name) " grobs are created by: "
        (human-listify (map ref-ify
                            (map engraver-name engraver-names)))))
 
            (apply string-append ifacedoc))))
      
-(define (engraver-makes-grob? name grav)
-  (memq name (assoc 'grobs-created (Translator::description grav)))
+(define (engraver-makes-grob? name-symbol grav)
+  (memq name-symbol (assoc 'grobs-created (Translator::description grav)))
   )
 
 (define (document-all-grobs name)

diff --git a/scm/engraver-documentation-lib.scm b/scm/engraver-documentation-lib.scm
index 6183686e0c52e7fac071290ac8a59cccea85b6a9..e19bce865b795b4f831fdf9d4afdbd32fd761de8 100644 (file)
--- a/scm/engraver-documentation-lib.scm
+++ b/scm/engraver-documentation-lib.scm
@@ -28,7 +28,7 @@
         (name (Translator::name engraver))
         (name-sym (string->symbol name))
         (desc (cdr (assoc 'description (Translator::description engraver))))
-        (grobs (cdr (assoc 'grobs-created (Translator::description engraver))))
+        (grobs (engraver-grobs engraver))
         )
 
     (string-append
@@ -141,14 +141,17 @@
         (apply string-append 
                (map document-engraver-by-name consists))))))
 
-(define (engraver-grobs  name)
+(define (engraver-grobs  grav)
   (let* (
-        (eg (find-engraver-by-name name all-engravers-list))
-      )
+        (eg (if (string? grav)
+                (find-engraver-by-name grav all-engravers-list)
+                grav))
+            
+            )
 
     (if (eq? eg #f)
        '()
-       (cdr (assoc 'grobs-created (Translator::description eg)))
+       (map symbol->string (cdr (assoc 'grobs-created (Translator::description eg))))
        )
   ))
 

diff --git a/scm/generate-documentation.scm b/scm/generate-documentation.scm
index 5e3f8f805f207ce67032cac57603ec0a3891ac49..9dad6f22f976e5ced1bd4e2c97596314f653909d 100644 (file)
--- a/scm/generate-documentation.scm
+++ b/scm/generate-documentation.scm
@@ -1,4 +1,3 @@
-
 ;;; generate-documentation.scm -- Generate documentation
 ;;;
 ;;; source file of the GNU LilyPond music typesetter
@@ -30,7 +29,7 @@
             (document-music "LilyPond music properties") 
             (document-paper "LilyPond interpretation contexts")
             (document-all-engravers "LilyPond engravers")
-            (document-all-engraver-properties "LilyPond context properties")        
+            (document-all-engraver-properties "LilyPond context properties")
             (document-all-grobs "LilyPond backend")
             (document-all-interfaces "LilyPond interfaces")
             (document-all-backend-properties "LilyPond backend properties")