input/new/move-specific-text.ly

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