Issue 5167/1: Reorganize markup commands to use object properties

[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 2d08a1607e8ba327d9039c4e5142506f377cd7ec..40810e6a19be23526a16ef04096f9dc4177a076a 100644 (file)
--- a/Documentation/snippets/center-text-below-hairpin-dynamics.ly
+++ b/Documentation/snippets/center-text-below-hairpin-dynamics.ly
@@ -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