\version "2.18.2"
#(define-markup-command (long-fermata layout props) ()
#:category music
#:properties ((direction UP))
(interpret-markup layout props
(if (eqv? direction DOWN)
(markup #:musicglyph "scripts.dlongfermata")
(markup #:musicglyph "scripts.ulongfermata"))))
longFermataMarkup =
#(make-music 'MultiMeasureTextEvent
;; Set the 'text based on the 'direction
'text (make-long-fermata-markup)
'tweaks '((outside-staff-priority . 40)
(outside-staff-padding . 0)))
{
R1\longFermataMarkup
}
HTH,
Harm