input/test/move-specific-text.ly

   1
   2 \version "2.10.0"
   3 % possible rename to scheme- or something like that.  -gp
   4 \header { texidoc = "@cindex Scheme Move Text
   5 Objects, like text, can be moved around by using some Scheme code.
   6 " }
   7
   8 #(define (make-text-checker text)
   9    (lambda (grob) (equal? text (ly:grob-property grob 'text))))
  10
  11 \score {
  12   \relative c''' {
  13     \stemUp
  14     \applyOutput #'Voice #(outputproperty-compatibility (make-text-checker (make-simple-markup "m.d."))
  15       'extra-offset '(-3.5 . -4.5))
  16     a^2^"m.d."
  17   }
  18   \layout { ragged-right = ##t}
  19 }
  20