Re: Table of Contents with simple movement headers

[Richard Shann]

On Sun, 2025-10-12 at 17:50 +0200, Andreas Schneider wrote:
> I would like to create a table of contents from the (simple) titles
> of 
> all movements in a score. That is, I would like Denemo to generate 
> Lilypond output similar to the one in attached file. How can I 
> accomplish that?

Does this do what you want?

%8><8><8><8><8><8><8><8><8><8><8><8><8><8><8><8><8><8><8><8><8><
(d-PushPosition)
(while (d-PreviousMovement))
(let ((tag "SimpleToc"))
        (let loop ()
                (define title (d-DirectiveGet-header-data "MTitles"))
                (if title
                        (begin
                                (set! title (assq-ref (eval-string title) 
'title))
                                (if title
                                        (begin
                                                (d-DirectivePut-score-prefix 
tag "\\markuplist \\table-of-contents\n")
                                                
(d-DirectivePut-movementcontrol-prefix tag (string-append "\\tocItem \\markup " 
title "\n")))
                                        (d-WarningDialog (_ "No title for this 
movement"))))
                        (d-WarningDialog (_ "No (simple) titles for this 
movement")))
                (if (d-NextMovement)
                        (loop))))
(d-PopPosition)                         

%8><8><8><8><8><8><8><8><8><8><8><8><8><8><8><8><8><8><8><8><8><

Richard


> 
> Andreas