Table des matières en colonnes

[Vincent Gay]

    Bonjour la liste
    
    J'avance péniblement sur mon projet de recueil de partitions. Mon
    problème du jour est la place occupée par la table des matière. Avec
    300 titres multipliés par 3 entrées en moyenne ça va faire plus de
    30 pages 😠
    
    Serait-il possible  de la présenter en deux ou trois colonnes ?
    Ci-dessous une capture d'écran réduite avec 3 titres seulement et le
    code de mon bloc \paper. Il est difficile d'envoyer le code complet
    du fait de la multiplication des \includes et des fonctions
    additionnelles mais si nécessaire je tacherai de faire un exemple
    minimal.
    
    Merci et bon week-end

    % correction de bug transmis par Jean
    #(let ((default-table-of-contents
    make-table-of-contents-markup-list))
       (define-markup-list-command (table-of-contents layout props) ()
         (let* ((result (interpret-markup-list layout props
    (default-table-of-contents)))
                (alist (ly:output-def-lookup layout 'label-alist-table))
                (parent (ly:output-def-parent layout)))
           (when (not (null? parent))
             (ly:output-def-set-variable! parent 'label-alist-table
    alist))
           result)))
    
    \paper {
      ragged-last-bottom = ##t
      ragged-last = ##f
      tocActMarkup = \markup
        {  \vspace #1 \hspace #-4 \italic \fromproperty #'toc:text }
      tocItemMarkup = \markup
      \fill-line {
        \fill-with-pattern #1.5 #CENTER .
        \line {
          \hspace #-4 %% Cancelling the first level's tocIndentMarkup
          \fromproperty #'toc:indent \fromproperty #'toc:text
          \hspace #2
        }
        \fromproperty #'toc:page
      }
      tocTitleMarkup =
      \markup {
        \column {
          \vspace #3
          \fill-line { \fontsize #9 "My Real Book" }
           \vspace #1
          \fill-line { \fontsize #3 "For C Instruments" }
           \vspace #2
        }
      }
    }
    
    tocAct =
    #(define-music-function (label text) (symbol-list-or-symbol?
    markup?)
       (add-toc-item! 'tocActMarkup text label))
    
-- 
Vincent Gay
Envoyé depuis mon saxo-phone :)
https://myrealbook.vintherine.org/ - http://photos.vintherine.org/