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