common/test-toc-columns.ly

   1 \version "2.13.54"
   2
   3 \include "toc-columns.ily"
   4
   5 %%% Rehearsal numbers
   6 #(define-public rehearsal-number #f)
   7 #(define-public increase-rehearsal-major-number #f)
   8 #(let ((major-number 0)
   9        (minor-number 0))
  10   (set! increase-rehearsal-major-number
  11         (lambda ()
  12           (set! major-number (1+ major-number))
  13           (set! minor-number 0)))
  14   (set! rehearsal-number
  15         (lambda ()
  16           (set! minor-number (1+ minor-number))
  17           (format #f "~a-~a" major-number minor-number))))
  18
  19 tocItem =
  20 #(define-music-function (parser location text) (markup?)
  21    "Add a line to the table of content, using the @code{tocItemMarkup} paper
  22 variable markup"
  23   (let ((rehearsal (rehearsal-number)))
  24    (add-toc-item! 'tocPieceMarkup text rehearsal)))
  25
  26 tocSceneItem =
  27 #(define-music-function (parser location text) (markup?)
  28    "Add a line to the table of content, using the @code{tocItemMarkup} paper
  29 variable markup"
  30    (add-toc-item! 'tocSceneMarkup text))
  31
  32 tocActItem =
  33 #(define-music-function (parser location text) (markup?)
  34    "Add a line to the table of content, using the @code{tocItemMarkup} paper
  35 variable markup"
  36    (increase-rehearsal-major-number)
  37    (add-toc-item! 'tocActMarkup text))
  38
  39 %% Default: on 2 columns
  40 \markup { Default: 2 columns, dots, no rehearsal numbers }
  41 \markuplist \table-of-contents
  42 \pageBreak
  43
  44 %% on 3 columns
  45 \markup { 3 columns }
  46 \markuplist \override-lines #'(column-number . 3) \table-of-contents
  47 \pageBreak
  48
  49 %% on 2 columns with piece numbers
  50 \markup { 2 columns and rehearsal numbers, with right aligned number }
  51 \markuplist \override-lines #'(use-rehearsal-numbers . #t) \table-of-contents
  52 \pageBreak
  53
  54 %% on 2 columns with piece numbers, left aligned
  55 \markup { 2 columns and rehearsal numbers, with left aligned number }
  56 \markuplist \override-lines #'(use-rehearsal-numbers . #t)
  57 \override-lines #`(rehearsal-number-align . ,LEFT) \table-of-contents
  58 \pageBreak
  59
  60 \tocItem "Ouverture"
  61 \tocActItem "Acte I"
  62 \tocSceneItem "Scène I"
  63 \tocItem "Pièce 1.1.1"
  64 \tocItem "Pièce 1.1.2"
  65 \tocItem "Pièce 1.1.3"
  66 \tocSceneItem "Scène II"
  67 \tocItem "Pièce 1.2.1"
  68 \tocItem "Pièce 1.2.2"
  69 \tocItem "Pièce 1.2.3"
  70 \tocSceneItem "Scène III"
  71 \tocItem "Pièce 1.3.1"
  72 \tocItem "Pièce 1.3.2"
  73 \tocItem "Pièce 1.3.3"
  74
  75 \tocActItem "Acte II"
  76 \tocSceneItem "Scène I"
  77 \tocItem "Pièce 2.1.1"
  78 \tocItem "Pièce 2.1.2"
  79 \tocSceneItem "Scène II"
  80 \tocItem "Pièce 2.2.1"
  81 \tocItem "Pièce 2.2.2"
  82 \tocSceneItem "Scène III"
  83 \tocItem "Pièce 2.3.1"
  84 \tocItem "Pièce 2.3.2"
  85
  86 \tocActItem "Acte III"
  87 \tocSceneItem "Scène I"
  88 \tocItem "Pièce 3.1.1"
  89 \tocItem "Pièce 3.1.2"
  90 \tocItem "Pièce 3.1.3"
  91 \tocSceneItem "Scène II"
  92 \tocItem "Pièce 3.2.1"
  93 \tocItem "Pièce 3.2.2"
  94 \tocItem "Pièce 3.2.3"
  95 \tocSceneItem "Scène III"
  96 \tocItem "Pièce 3.3.1"
  97 \tocItem "Pièce 3.3.2"
  98 \tocItem "Pièce 3.3.3"
  99 \tocSceneItem "Scène VI"
 100 \tocItem "Pièce 3.4.1 (string)"
 101 \tocItem \markup { Pièce 3.4.2 (line) }
 102 \tocItem \markup \wordwrap { Pièce 3.4.3 very looooong text text text text text (wordwrap) }
 103
 104 \markup\null