2 % possible rename to scheme- or something like that. -gp
4 doctitle = "Move specific text"
5 lsrtags = "tweaks-and-overrides"
6 texidoc = "@cindex Scheme Move Text
7 Objects of the same type, like text, can be moved around by using some Scheme code.
10 #(define (make-text-checker text)
11 (lambda (grob) (equal? text (ly:grob-property grob 'text))))
17 #(outputproperty-compatibility
18 (make-text-checker (make-simple-markup "m.d."))
19 'extra-offset '(-3.5 . -4.5))
22 \layout { ragged-right = ##t}