+;;; \melisma and \melismaEnd
+(define-extra-display-method ContextSpeccedMusic (expr parser)
+ "If expr is a melisma, return \"\\melisma\", otherwise, return #f."
+ (with-music-match (expr (music 'ContextSpeccedMusic
+ element (music 'PropertySet
+ value #t
+ symbol 'melismaBusy)))
+ "\\melisma"))
+
+(define-extra-display-method ContextSpeccedMusic (expr parser)
+ "If expr is a melisma end, return \"\\melismaEnd\", otherwise, return #f."
+ (with-music-match (expr (music 'ContextSpeccedMusic
+ element (music 'PropertyUnset
+ symbol 'melismaBusy)))
+ "\\melismaEnd"))
+
+;;; \tempo
+(define-extra-display-method ContextSpeccedMusic (expr parser)
+ "If expr is a tempo, return \"\\tempo x = nnn\", otherwise return #f."
+ (with-music-match (expr (music 'ContextSpeccedMusic
+ element (music 'SequentialMusic
+ elements ((music 'PropertySet
+ symbol 'tempoWholesPerMinute)
+ (music 'PropertySet
+ value ?unit-duration
+ symbol 'tempoUnitDuration)
+ (music 'PropertySet
+ value ?unit-count
+ symbol 'tempoUnitCount)))))
+ (format #f "\\tempo ~a = ~a"
+ (duration->lily-string ?unit-duration #:force-duration #t)
+ ?unit-count)))