New bar line interface

[lilypond.git] / ly / property-init.ly

diff --git a/ly/property-init.ly b/ly/property-init.ly
index f2fadc1d396802454bcef1dcce404f18d16c02e1..269648639b7d81b54b53b37aeb72cddf470b3a46 100644 (file)
--- a/ly/property-init.ly
+++ b/ly/property-init.ly
@@ -84,6 +84,23 @@ balloonLengthOff = {
 }
 
 
+%% bar lines
+
+defineBarLine =
+#(define-void-function
+   (parser location bar glyph-list) (string? list?)
+   (_i "Define bar line settings for bar line @var{bar}.
+     The list @var{glyph-list} must have three entries which define
+     the appearance at the end of line, at the beginning of the next line,
+     and the span bar, respectively." )
+  (if (not (= (length glyph-list) 3))
+      (ly:error (_ "Argument list for bar '~a' must have three components.") bar)
+      (define-bar-line bar
+                       (car glyph-list)
+                       (cadr glyph-list)
+                       (caddr glyph-list))))
+
+
 %% bass figures
 
 bassFigureExtendersOn = {
@@ -402,9 +419,9 @@ shiftOff  = \revert NoteColumn #'horizontal-shift
 %% slurs
 
 % directions
-slurUp         = { \override Slur #'direction = #UP \override SlurStub #'direction = #UP }
-slurDown       = { \override Slur #'direction = #DOWN \override SlurStub #'direction = #DOWN }
-slurNeutral    = { \revert Slur #'direction \revert SlurStub #'direction  }
+slurUp         = \override Slur #'direction = #UP
+slurDown       = \override Slur #'direction = #DOWN
+slurNeutral    = \revert Slur #'direction
 
 % dash-patterns (make-simple-dash-definition defined at top of file)
 slurDashPattern =
@@ -604,6 +621,12 @@ voiceNeutralStyle = {
 }
 
 
+%% volta brackets
+
+allowVoltaHook =
+#(define-void-function (parser location bar) (string?)
+                       (allow-volta-hook bar))
+
 %% x notes
 
 xNotesOn =