Metronome-mark: align on key-signature too.

[lilypond.git] / lily / metronome-engraver.cc

diff --git a/lily/metronome-engraver.cc b/lily/metronome-engraver.cc
index a37a9475fb34e5329eb7e109d8ecaf0c13e760d1..d71452e286bf067eb29cef184b638ced6f2eaa53 100644 (file)
--- a/lily/metronome-engraver.cc
+++ b/lily/metronome-engraver.cc
@@ -45,7 +45,8 @@ protected:
   SCM last_text_;
 
   DECLARE_ACKNOWLEDGER (break_aligned);
-  
+  DECLARE_ACKNOWLEDGER (grob);
+
 protected:
   virtual void derived_mark () const;
   void stop_translation_timestep ();
@@ -70,14 +71,40 @@ Metronome_mark_engraver::derived_mark () const
 }
 
 void
-Metronome_mark_engraver::acknowledge_break_aligned (Grob_info inf)
+Metronome_mark_engraver::acknowledge_break_aligned (Grob_info info)
 {
-  Grob *s = inf.grob ();
+  Grob *g = info.grob ();
+
+  if (text_
+      && !support_
+      && scm_member (g->get_property_data ("break-align-symbol"),
+                    text_->get_property_data ("break-align-symbols"))
+      != SCM_BOOL_F)
+    {
+      support_ = g;
+      text_->set_parent (g, X_AXIS);
+    }
+}
+
+SCM
+grob_name_scm (Grob *g)
+{
+  SCM name_pair = scm_assq (ly_symbol2scm ("name"), g->get_property ("meta"));
+  return scm_is_pair (name_pair) ? scm_cdr (name_pair) : SCM_EOL;
+}
+
+void
+Metronome_mark_engraver::acknowledge_grob (Grob_info info)
+{
+  Grob *g = info.grob ();
+
   if (text_
-      && (s->get_property_data ("break-align-symbol")
-         == text_->get_property_data ("break-align-symbol")))
+      && !support_
+      && scm_member (grob_name_scm (g),
+                    text_->get_property_data ("non-break-align-symbols"))
+      != SCM_BOOL_F)
     {
-      support_ = s;
+      text_->set_parent (g, X_AXIS);
     }
 }
 
@@ -95,8 +122,10 @@ Metronome_mark_engraver::stop_translation_timestep ()
            first notational element of the measure if no time
            signature is present in that measure).
          */
-         Grob *mc = unsmob_grob (get_property ("currentMusicalColumn"));
-         text_->set_parent (mc, X_AXIS);
+         if (Grob *mc = unsmob_grob (get_property ("currentMusicalColumn")))
+           text_->set_parent (mc, X_AXIS);
+         else if (Grob *cc = unsmob_grob (get_property ("currentCommandColumn")))
+           text_->set_parent (cc, X_AXIS);
        }
       text_->set_object ("side-support-elements",
                         grob_list_to_grob_array (get_property ("stavesFound")));
@@ -138,6 +167,7 @@ Metronome_mark_engraver::process_music ()
 
 
 ADD_ACKNOWLEDGER (Metronome_mark_engraver, break_aligned);
+ADD_ACKNOWLEDGER (Metronome_mark_engraver, grob);
 
 ADD_TRANSLATOR (Metronome_mark_engraver,
                /* doc */