Issue 5167/6: Changes: show \markup xxx = ... \etc assignments

[lilypond.git] / Documentation / snippets / center-text-below-hairpin-dynamics.ly

diff --git a/Documentation/snippets/center-text-below-hairpin-dynamics.ly b/Documentation/snippets/center-text-below-hairpin-dynamics.ly
index 9aea589ed2c1f4334c4a7a2e14d6627135ecf6a7..40810e6a19be23526a16ef04096f9dc4177a076a 100644 (file)
--- a/Documentation/snippets/center-text-below-hairpin-dynamics.ly
+++ b/Documentation/snippets/center-text-below-hairpin-dynamics.ly
@@ -4,7 +4,7 @@
 %% and then run scripts/auxiliar/makelsr.py
 %%
 %% This file is in the public domain.
-\version "2.18.0"
+\version "2.19.22"
 
 \header {
   lsrtags = "expressive-marks, really-cool, scheme-language, text"
@@ -23,7 +23,7 @@ normally printed, using some Scheme code.
 } % begin verbatim
 
 hairpinWithCenteredText =
-#(define-music-function (parser location text) (markup?)
+#(define-music-function (text) (markup?)
   #{
     \once \override Voice.Hairpin.after-line-breaking =
       #(lambda (grob)
@@ -34,14 +34,15 @@ hairpinWithCenteredText =
                  (ly:stencil-combine-at-edge
                    (ly:stencil-aligned-to stencil X CENTER)
                    Y dir
-                   (ly:stencil-aligned-to (grob-interpret-markup grob text) X CENTER))
+                   (ly:stencil-aligned-to
+                     (grob-interpret-markup grob text) X CENTER))
                  X LEFT))
-               (staff-space (ly:output-def-lookup (ly:grob-layout grob) 'staff-space))
+               (staff-space (ly:output-def-lookup
+                 (ly:grob-layout grob) 'staff-space))
                (staff-line-thickness
                  (ly:output-def-lookup (ly:grob-layout grob) 'line-thickness))
-               (grob-name (lambda (x) (assq-ref (ly:grob-property x 'meta) 'name)))
                (par-x (ly:grob-parent grob X))
-               (dyn-text (eq? (grob-name par-x) 'DynamicText ))
+               (dyn-text (grob::has-interface par-x 'dynamic-text-interface))
                (dyn-text-stencil-x-length
                  (if dyn-text
                    (interval-length