fermataMarkup correction

Thanks to 'gnomino' on the bug list, here's a slightly
improved definition of fermataMarkup that takes the
markup's direction into account to either print
the dfermata or ufermata glyph accordingly.

diff --git a/ly/property-init.ly b/ly/property-init.ly
index 8759c7dad765eb61181a3db556a7d933b214cb6c..ae8d3382488df179c1295ef34ec802e9f139a960 100644 (file)
--- a/ly/property-init.ly
+++ b/ly/property-init.ly
@@ -320,7 +320,13 @@ arpeggioParenthesisDashed = {
 
 glissando = #(make-music 'GlissandoEvent)
 
-fermataMarkup = \markup { \musicglyph #"scripts.ufermata" }
+fermataMarkup =
+#(make-music 'MultiMeasureTextEvent
+   ; Set the 'text based on the 'direction
+   'tweaks (list (cons 'text (lambda (grob)
+       (if (eq? (ly:grob-property grob 'direction) DOWN)
+           (markup #:musicglyph "scripts.dfermata")
+           (markup #:musicglyph "scripts.ufermata"))))))
 
 hideNotes = {
   % hide notes, accidentals, etc.