Break-alignable metronome marks: remove hardcoding of time signature.

[lilypond.git] / scm / define-grobs.scm

diff --git a/scm/define-grobs.scm b/scm/define-grobs.scm
index 2860bc3e6aaa0925f6e12136b1e382733c068ca5..8b9a1f1dc399699dfd3651dac5f010781b6fe6f5 100644 (file)
--- a/scm/define-grobs.scm
+++ b/scm/define-grobs.scm
@@ -1162,10 +1162,20 @@
        (side-axis . ,Y)
        (stencil . ,ly:text-interface::print)
        (Y-offset . ,ly:side-position-interface::y-aligned-side)
+       (X-offset . ,(ly:make-simple-closure
+                     `(,+
+                       ,(ly:make-simple-closure
+                         (list ly:break-alignable-interface::self-align-callback))
+                       ,(ly:make-simple-closure
+                         (list ly:self-alignment-interface::x-aligned-on-self)))))
+       (self-alignment-X . -1)
+       (break-align-symbol . time-signature)
+       (break-align-symbols . (time-signature))
        (meta . ((class . Item)
                 (interfaces . (font-interface
                                metronome-mark-interface
                                side-position-interface
+                               break-alignable-interface
                                text-interface))))))
 
     (MultiMeasureRest
@@ -2091,6 +2101,7 @@
        (break-align-anchor
         . ,ly:break-aligned-interface::calc-extent-aligned-anchor)
        (break-align-symbol . time-signature)
+       (break-align-anchor-alignment . ,LEFT)
        (break-visibility . ,all-visible)
        (extra-spacing-height . (-1.0 . 1.0))
        (non-musical . #t)