input/test/move-specific-text.ly

   1 \version "1.7.18"
   2 % possible rename to scheme- or something like that.  -gp
   3 \header { texidoc = "@cindex Scheme Move Text
   4 You can move objects around with scheme.  This example shows how to
   5 move text around. " }
   6
   7 #(define (make-text-checker text)
   8    (lambda (grob) (equal? text (ly:get-grob-property grob 'text))))
   9
  10 \score {
  11   \notes\relative c''' {
  12     \property Voice.Stem \set #'direction = #1
  13     \outputproperty #(make-text-checker (make-simple-markup "m.d."))
  14       #'extra-offset = #'(-3.5 . -4.5)
  15     a^2^"m.d."
  16   }
  17   \paper { raggedright = ##t}
  18 }
  19