input/lsr/move-specific-text.ly

   1 %% Do not edit this file; it is auto-generated from input/new
   2 \version "2.11.35"
   3 % possible rename to scheme- or something like that.  -gp
   4 \header {
   5   doctitle = "Move specific text"
   6   lsrtags = "tweaks-and-overrides"
   7   texidoc = "@cindex Scheme Move Text
   8 Objects of the same type, like text, can be moved around by using some Scheme code.
   9 " }
  10 % begin verbatim
  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 }