input/new/page-label.ly

   1 \version "2.11.61"
   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)
  12   (symbol? markup?)
  13   (interpret-markup layout props
  14    (markup #:fill-line (text #:page-ref label "8" "?"))))
  15
  16 \book {
  17   \markup \huge \fill-line { \null Title Page \null }
  18
  19   \pageBreak
  20
  21   \label #'toc
  22   \markup \column {
  23     \large \fill-line { \null Table of contents \null }
  24     \toc-line #'toc "Table of contents"
  25     \toc-line #'firstScore "First Score"
  26     \toc-line #'markA "Mark A"
  27     \toc-line #'markB "Mark B"
  28     \toc-line #'markC "Mark C"
  29     \toc-line #'unknown "Unknown label"
  30   }
  31
  32   \pageBreak
  33
  34   \label #'firstScore
  35   \score {
  36     \new Staff \relative c' {
  37       c2 c
  38       \mark \markup {
  39         A (page \concat { \page-ref #'markA "0" "?" ) }
  40       } \label #'markA
  41       c2 c
  42       \pageBreak
  43       \mark "B" \label #'markB
  44       d2 d
  45       d2 d
  46       \once \override Score.RehearsalMark #'break-visibility =
  47         #begin-of-line-invisible
  48       \mark "C" \label #'markC
  49     }
  50     \header { piece = "First score" }
  51   }
  52 }