input/new/page-label.ly

   1 \version "2.11.26"
   2 \header {
   3   lsrtags = "spacing"
   4   texidoc = "Page labels may be placed inside music or at top-level,
   5 and referred to in markups."
   6   doctitle = "Page label"
   7 }
   8
   9 #(set-default-paper-size "a6")
  10
  11 #(define-markup-command (toc-line layout props label text) (symbol? markup?)
  12   (interpret-markup layout props
  13    (markup #:fill-line (text #:page-ref label "8" "?"))))
  14
  15 \book {
  16   \markup \huge \fill-line { \null Title Page \null }
  17
  18   \pageBreak
  19
  20   \label #'toc
  21   \markup \column {
  22     \large \fill-line { \null Table of contents \null }
  23     \toc-line #'toc "Table of contents"
  24     \toc-line #'firstScore "First Score"
  25     \toc-line #'markA "Mark A"
  26     \toc-line #'markB "Mark B"
  27     \toc-line #'markC "Mark C"
  28     \toc-line #'unknown "Unknown label"
  29   }
  30
  31   \pageBreak
  32
  33   \label #'firstScore
  34   \score {
  35     {
  36       c'2 c'
  37       \mark \markup { A (page \concat { \page-ref #'markA "0" "?" ) } } \label #'markA
  38       c'2 c'
  39       \pageBreak
  40       \mark "B" \label #'markB
  41       d'2 d'
  42       d'2 d'
  43       \once \override Score.RehearsalMark #'break-visibility = #begin-of-line-invisible
  44       \mark "C" \label #'markC
  45     }
  46     \header { piece = "First score" }
  47   }
  48 }