input/test/move-specific-text.ly

   1
   2 \version "2.1.26"
   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   \notes\relative c''' {
  13     \override Stem  #'direction = #1
  14     \applyoutput #(outputproperty-compatibility (make-text-checker (make-simple-markup "m.d."))
  15       'extra-offset '(-3.5 . -4.5))
  16     a^2^"m.d."
  17   }
  18   \paper { raggedright = ##t}
  19 }
  20