-
-void
-Hara_kiri_engraver::add_element (Grob *e)
-{
- Hara_kiri_group_spanner::add_element (staffline_, e);
-}
-
-Spanner *
-Hara_kiri_engraver::get_spanner ()
-{
- Spanner *sp = make_spanner ("RemoveEmptyVerticalGroup", SCM_EOL);
-
- return sp;
-}
-
-void
-Hara_kiri_engraver::acknowledge_grob (Grob_info i)
-{
- Axis_group_engraver::acknowledge_grob (i);
- if (staffline_)
- {
- for (SCM s = interesting_; scm_is_pair (s); s = scm_cdr (s))
- {
- if (i.grob_->internal_has_interface (scm_car (s)))
- Hara_kiri_group_spanner::add_interesting_item (staffline_, i.grob_);
- }
- }
-}
-
-Hara_kiri_engraver::Hara_kiri_engraver ()
-{
- interesting_ = SCM_EOL;
-}
-
-ADD_TRANSLATOR (Hara_kiri_engraver,
- /* descr */ "Like Axis_group_engraver, but make a hara-kiri spanner, and add "
- "interesting items (ie. note heads, lyric syllables and normal rests) ",
- /* creats*/ "RemoveEmptyVerticalGroup",
- /* accepts */ "",
- /* acks */ "grob-interface",
- /* reads */ "keepAliveInterfaces",
- /* write */ "");
-