release: 1.5.24

[lilypond.git] / scm / interface-description.scm

diff --git a/scm/interface-description.scm b/scm/interface-description.scm
index 80fe44bc27f09c53046449c9300ca3984a33498f..9050f64050b67f0a4413848c98fcaef45dd52bb8 100644 (file)
--- a/scm/interface-description.scm
+++ b/scm/interface-description.scm
@@ -24,15 +24,14 @@
        )
   )
 
-(define (grob-description name . interfaces)
-  (let* ((ifs (cons general-grob-interface interfaces))
+(define (grob-description . interfaces)
+  (let* ((ifs (cons grob-interface interfaces))
         (props (map caddr ifs))
                                        ;        (prop-typep-pairs (map (lambda (x) (cons (car x) (cadr x)))
                                        ;                                       (apply append props)))
         (syms (map car ifs))
         )
     (list (cons 'separator "\n\n\n")   ;easy printing.
-         (cons 'name name)
          (cons 'interfaces syms)
          (cons 'interface-descriptions ifs)
                                        ; (cons 'interface-descriptions (cadr merged))
@@ -42,7 +41,7 @@
 
 
 (lily-interface
- 'general-grob-interface
+ 'grob-interface
  "All grobs support this"
  '(
    X-offset-callbacks 
@@ -75,7 +74,7 @@
    height
    flag-width-function 
    damping 
-   default-neutral-direction 
+   neutral-direction 
    thickness 
    space-function 
    beamed-stem-shorten 
@@ -88,6 +87,17 @@
    )
  )
 
+(lily-interface
+ 'staff-spacing-interface
+ ""
+ '(
+   ))
+
+(lily-interface
+ 'note-spacing-interface
+ ""
+ '(
+   ))
 
 (lily-interface
  'clef-interface
@@ -129,12 +139,12 @@
    stem-shorten 
    duration-log 
    beaming 
-   default-neutral-direction 
+   neutral-direction 
    stem-end-position 
    support-head 
    heads 
    direction 
-   stem-length 
+   length 
    style 
    flag-style 
    dir-forced 
@@ -186,9 +196,11 @@
 (lily-interface
  'accidentals-interface
  "Accidentals"
- '(
+ '(accidentals
    left-padding 
-   right-padding 
+   right-padding
+   paren-cautionaries
+   cautionary-size
    ))
 
 
@@ -245,14 +257,13 @@ object."
  'tuplet-bracket-interface
  "A bracket with a number in the middle, used for tuplets." 
  '(
-   beams 
    columns 
    number-gap 
    delta-y 
    tuplet-bracket-visibility 
    tuplet-number-visibility 
-   parallel-beam 
    thick 
+   direction
    ))
 
 
@@ -359,7 +370,7 @@ If @var{bartype} is set to @code{\"empty\"} then nothing is printed,
 but a line break is allowed at that spot.
 
 "
- '( barsize-procedure kern thin-kern hair-thickness thick-thickness glyph bar-size break-glyph-function ))
+ '(bar-size-procedure kern thin-kern hair-thickness thick-thickness glyph bar-size break-glyph-function ))
 
 
 (lily-interface
@@ -376,7 +387,7 @@ padding -- horizontal padding. This is useful if a crescendo is set next to a te
 (lily-interface
  'arpeggio-interface
  "Functions and settings for drawing an arpeggio symbol (a wavy line left to noteheads."
- '(stems))
+ '(stems arpeggio-direction))
 
 
 
@@ -534,7 +545,11 @@ that helps show the length of a melissima (tied/slurred note)."
    'lyric-syllable-interface
    "a single piece of lyrics"
    '(
-    word-space  
+    word-space
+    alignment
+    ignore-length-mismatch
+    begin-alignment
+    end-alignment
     ))
 
 
@@ -568,6 +583,13 @@ contains-grace extra-space stretch-distance ))
 
 
 
+  (lily-interface
+   'porrectus-interface
+   "A porrectus ligature, joining two note heads into a single grob."
+   '(
+    ))
+
+
   (lily-interface
    'spaceable-element-interface
    "An grob (generally a Paper_column) that takes part in the
@@ -775,7 +797,7 @@ direction = Forced direction for all ties"
    ))
 
 
-(ly-eval (cons
+(primitive-eval (cons
          'begin
          (map (lambda (x) (list 'define (car x) (list 'quote (cdr x))))
               all-interfaces)))