input/lsr/move-specific-text.ly

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