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