input/regression/page-label.ly

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