input/lsr/page-label.ly

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