input/new/move-specific-text.ly

   1 \version "2.10.0"
   2 % possible rename to scheme- or something like that.  -gp
   3 \header {
   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.
   8 " }
   9
  10 #(define (make-text-checker text)
  11    (lambda (grob) (equal? text (ly:grob-property grob 'text))))
  12
  13 \score {
  14   \relative c''' {
  15     \stemUp
  16     \applyOutput #'Voice
  17     #(outputproperty-compatibility
  18       (make-text-checker (make-simple-markup "m.d."))
  19       'extra-offset '(-3.5 . -4.5))
  20     a^2^"m.d."
  21   }
  22   \layout { ragged-right = ##t}
  23 }