Editing Table of contents section command

If you have several pieces in several files, you might want to build a book from that. Assume you have a master file which includes the pieces:

<pre>
\include &quot;tune1.ly&quot;
\include &quot;tune2.ly&quot;
</pre>
In your piece-files you might have <code>\tocItem</code> commands to build the table of contents.

If you replace those <code>\tocItem</code> commands with the newly defined <code>\part</code> command, you can use <code>#(set-toc-section! &quot;</code>''<code>section</code>''<code>&quot;)</code> in the master file:

<pre>#(set-toc-section! &quot;tunes&quot;)
\include &quot;tune1.ly&quot;
\include &quot;tune2.ly&quot;
#(set-toc-section! &quot;parts&quot;)
\include &quot;part1.ly&quot;
\include &quot;part2.ly&quot;</pre>
Now every section is introduced with a section line in the table of contents only if the section title was set before. If you reorder the parts (includes), the sections will still appear in the right place. This is meant for compiling a collection of pieces, which also compile themselves. For a complete opus with pieces Please see snippet [http://lsr.di.unimi.it/LSR/Item?id=368 368]

<lilypond version="2.24" full>
%% http://lsr.di.unimi.it/LSR/Item?id=738
%% see also http://lsr.di.unimi.it/LSR/Item?id=368

% define toc-section commands
#(begin 
  (define-public (set-toc-section! text) #f)
  (define-public (get-toc-section text) #f)
  (let ((toc-section #f))
       (set! set-toc-section! (lambda (text)(set! toc-section text)))
       (set! get-toc-section (lambda ()(begin toc-section)))))

% define section-aware piece-toc-item-command
piece = #(define-music-function (text) (markup?)
  (begin 
    (if (get-toc-section) (add-toc-item! 'tocCollMarkup (get-toc-section)))
    (set-toc-section! #f)
    (add-toc-item! 'tocPartMarkup text)))

\paper {
  #(set-paper-size "a5 landscape")
  % this will not know the page number!
  tocCollMarkup = \markup { \fill-line { \bold \fromproperty #'toc:text \vspace #1 \null } }
  tocPartMarkup = \markup { \fill-line { \concat { \hspace #2 \fromproperty #'toc:text } \vspace #0 \fromproperty #'toc:page } }
}


% some music pieces ...
\bookpart {
  \markuplist {
    \override-lines #'(baseline-skip . 2.3)
    \table-of-contents
  }
}
#(set-toc-section! "section 1")
\bookpart {
  \piece \markup { "piece 1" }
  \score {
    \relative c' {      
      c d e f g
    }
  }
}
\bookpart {
  \piece \markup { "piece 2" }
  \score {
    \relative c' {
      c d e f
    }
  }
}
#(set-toc-section! "section 2")
\bookpart {
  \piece \markup { "piece 1" }
  \score {
    \relative c' {
      c d e f
    }
  }
}
\bookpart {
  \piece \markup { "piece 2" }
  \score {
    \relative c' {
      c d e f
    }
  }
}
</lilypond>

[[Category:Titles]]
[[Category:Paper and layout]]
[[Category:Snippet]]