release: 1.3.48

[lilypond.git] / scm / generic-property.scm

diff --git a/scm/generic-property.scm b/scm/generic-property.scm
index adbf00a735192e837f14a02b2674ff13bf9bac97..3145084cc77946b5437d8a959a64d16d62e6bce0 100644 (file)
--- a/scm/generic-property.scm
+++ b/scm/generic-property.scm
@@ -64,6 +64,7 @@
                     (list 'textScriptPadding number? 'padding)
                     (list 'textVerticalAlignment dir? 'self-alignment-Y)
                     (list 'textHorizontalAlignment dir? 'self-alignment-X)
+                    (list 'textScriptWordSpace number? 'word-space)
                     )
        ))
 
@@ -72,18 +73,23 @@
                         (list 'textScriptPadding number? 'padding)
                         (list 'sustainPedalPadding number? 'padding))))
 
+(define generic-chord-name-properties
+  (cons "Chord_name" (list
+                     (list 'textScriptWordSpace number? 'word-space)
+                     (list 'chordNameWordSpace number? 'word-space))))
+
 (define generic-crescendo-properties
   (cons "Crescendo" (list
-                    (list 'verticalDirection dir? 'direction)
                     (list 'dynamicDirection dir? 'direction)
+                    (list 'verticalDirection dir? 'direction)
                     (list 'dynamicPadding number? 'padding) 
                     (list 'dynamicMinimumSpace number? 'minimum-space) 
                     )))
   
 (define generic-dynamic-line-spanner-properties
   (cons "Dynamic_line_spanner" (list
-                    (list 'verticalDirection dir? 'direction)
                     (list 'dynamicDirection dir? 'direction)
+                    (list 'verticalDirection dir? 'direction)
                     (list 'dynamicPadding number? 'padding) 
                     (list 'dynamicMinimumSpace number? 'minimum-space) 
                     )))
@@ -217,6 +223,7 @@
    generic-timesig-properties
    generic-clef-properties
    generic-collision-properties
+   generic-sustain-pedal-properties
    generic-rest-collision-properties
    generic-volta-spanner-properties
 ;   generic-staff-symbol-properties
@@ -240,3 +247,8 @@
   (list generic-text-properties
   )
 )
+
+(define generic-chord-staff-properties
+  (list generic-chord-name-properties
+  )
+)