From 754b4e7e2736db09eae1d52b843d45a9db0903d6 Mon Sep 17 00:00:00 2001 From: David Kastrup Date: Sun, 28 Jul 2013 13:20:13 +0200 Subject: [PATCH] Let \fermataMarkup use \fermata markup command --- ly/property-init.ly | 14 +++++--------- 1 file changed, 5 insertions(+), 9 deletions(-) diff --git a/ly/property-init.ly b/ly/property-init.ly index 94be429743..5222b232d8 100644 --- a/ly/property-init.ly +++ b/ly/property-init.ly @@ -1,6 +1,6 @@ % property-init.ly -\version "2.17.20" +\version "2.17.24" %% for dashed slurs, phrasing slurs, and ties #(define (make-simple-dash-definition dash-fraction dash-period) @@ -219,14 +219,10 @@ endincipit = \context Staff { fermataMarkup = #(make-music 'MultiMeasureTextEvent - 'tweaks (list - ;; Set the 'text based on the 'direction - (cons 'text (lambda (grob) - (if (eq? (ly:grob-property grob 'direction) DOWN) - (markup #:musicglyph "scripts.dfermata") - (markup #:musicglyph "scripts.ufermata")))) - (cons 'outside-staff-priority 40) - (cons 'outside-staff-padding 0))) + ;; Set the 'text based on the 'direction + 'text (make-fermata-markup) + 'tweaks '((outside-staff-priority . 40) + (outside-staff-padding . 0))) %% font sizes -- 2.39.5