- if (musical_malt_p_)
- {
- Separating_group_spanner::add_spacing_unit (sep_span_p_, musical_malt_p_);
-
-
- /* TODO
-
- move this mucketry into separation-spanner.
-
- */
- if (last_nonnil_break_malt_p_ && last_nonnil_musical_malt_p_)
- {
- cout << now_mom ().str () <<endl;
- Item *col = last_nonnil_break_malt_p_->column_l();
- if (!col)
- col = dynamic_cast<Item*> (unsmob_grob (get_property ("currentCommandColumn")));
-
- SCM between = col->get_grob_property ("between-cols");
-
- SCM left = last_nonnil_musical_malt_p_->column_l()->self_scm ();
- SCM right = get_property ("currentMusicalColumn"); // musical_malt_p_->column_l()->self_scm ();
- if (gh_pair_p (between))
- {
- /*
- ugh. set_..._x ()
- */
- if (Paper_column::rank_i (unsmob_grob (gh_car (between))) < Paper_column::rank_i (unsmob_grob (left)))
- gh_set_car_x (between, left);
- if (Paper_column::rank_i (unsmob_grob (gh_cdr (between))) > Paper_column::rank_i (unsmob_grob (right)))
- gh_set_cdr_x (between, right);
- }
- else
- {
- col->set_grob_property ("between-cols", gh_cons (left, right));
- }
- }
-
- if (last_step_musical_malt_p_)
- {
- Paper_column *col =
- last_step_musical_malt_p_->column_l();
- SCM newtup = gh_cons (last_step_musical_malt_p_->self_scm (),
- musical_malt_p_->self_scm ());
- col->set_grob_property ("spacing-sequence",
- gh_cons (newtup,
- col->get_grob_property ("spacing-sequence")));
- }
-
-