2 #(define (make-text-checker text)
3 (lambda (grob) (equal? text (ly-get-elt-property grob 'text))))
7 \property Voice.Stem \set #'direction = #1
8 \outputproperty #(make-text-checker "m.d.")
9 #'extra-offset = #'(-3.5 . -4.5)
12 \paper { linewidth = -1.; }