}
paper_->parent_ = parent->paper_;
- if (header_ == SCM_EOL)
+ if ((header_ == SCM_EOL) && (scm_is_null (parent->bookparts_)))
{
+ /* If this is the first part, and it has no header, copy the
+ * parent header */
header_ = ly_make_anonymous_module (false);
if (ly_is_module (parent->header_))
ly_module_copy (header_, parent->header_);
for (vsize i = 0; i < lines_per_page.size (); i++)
{
SCM page_num = scm_from_int (i + first_page_number);
- SCM last = scm_from_bool (last_part && (i == lines_per_page.size () - 1));
- SCM rag = scm_from_bool (ragged () || (to_boolean (last)
- && ragged_last ()));
+ bool last_from_part = (i == lines_per_page.size () - 1);
+ SCM last_from_book = scm_from_bool (last_part && last_from_part);
+ SCM rag = scm_from_bool (ragged () || (last_from_part && ragged_last ()));
SCM line_count = scm_from_int (lines_per_page[i]);
SCM lines = scm_list_head (systems, line_count);
SCM page = scm_apply_0 (make_page,
scm_list_n (book, lines, page_num,
- rag, last, SCM_UNDEFINED));
+ rag, last_from_book, SCM_UNDEFINED));
/* collect labels */
for (SCM l = lines ; scm_is_pair (l) ; l = scm_cdr (l))
{
SCM system_specs = SCM_EOL;
- if (ly_scm2bool (paper_->c_variable ("part-is-first")))
+ Stencil title = book_title ();
+ if (!title.is_empty ())
{
- Stencil title = book_title ();
- if (!title.is_empty ())
- {
- SCM props = paper_->lookup_variable (ly_symbol2scm ("book-title-properties"));
- Prob *ps = make_paper_system (props);
- paper_system_set_stencil (ps, title);
-
- system_specs = scm_cons (ps->self_scm (), system_specs);
- ps->unprotect ();
- }
+ SCM props = paper_->lookup_variable (ly_symbol2scm ("book-title-properties"));
+ Prob *ps = make_paper_system (props);
+ paper_system_set_stencil (ps, title);
+
+ system_specs = scm_cons (ps->self_scm (), system_specs);
+ ps->unprotect ();
}
SCM page_properties