]> git.donarmstrong.com Git - lilypond.git/blobdiff - input/regression/page-label.ly
Automatic table of contents:
[lilypond.git] / input / regression / page-label.ly
index 6f1e5c8e881c3b779cbe291285d32fd4bf167dc1..cb023872dc64d1adcb0d8b0da51baf851eb25b0b 100644 (file)
@@ -11,34 +11,36 @@ and refered to in markups."
   (interpret-markup layout props
    (markup #:fill-line (text #:page-ref label "8" "?"))))
 
-\markup \huge \fill-line { \null "Title Page" \null }
-
-\pageBreak
-
-\label #'toc
-\markup \column {
-  \large \fill-line { \null "Table of contents" \null }
-  \toc-line #'toc "Table of contents"
-  \toc-line #'firstScore "First Score"
-  \toc-line #'markA "Mark A"
-  \toc-line #'markB "Mark B"
-  \toc-line #'markC "Mark C"
-  \toc-line #'unknown "Unknown label"
-}
+\book {
+  \markup \huge \fill-line { \null "Title Page" \null }
+
+  \pageBreak
+
+  \label #'toc
+  \markup \column {
+    \large \fill-line { \null "Table of contents" \null }
+    \toc-line #'toc "Table of contents"
+    \toc-line #'firstScore "First Score"
+    \toc-line #'markA "Mark A"
+    \toc-line #'markB "Mark B"
+    \toc-line #'markC "Mark C"
+    \toc-line #'unknown "Unknown label"
+  }
 
-\pageBreak
-
-\label #'firstScore
-\score {
-  { c'2 c'
-    \mark \markup { A (page \concat { \page-ref #'markA "0" "?" ) }} \label #'markA 
-    c' c'
-    \pageBreak
-    \mark "B" \label #'markB
-    d' d'
-    d' d'
-    \once \override Score . RehearsalMark #'break-visibility = #begin-of-line-invisible
-    \mark "C" \label #'markC
+  \pageBreak
+
+  \label #'firstScore
+  \score {
+    { c'2 c'
+      \mark \markup { A (page \concat { \page-ref #'markA "0" "?" ) }} \label #'markA 
+      c' c'
+      \pageBreak
+      \mark "B" \label #'markB
+      d' d'
+      d' d'
+      \once \override Score . RehearsalMark #'break-visibility = #begin-of-line-invisible
+      \mark "C" \label #'markC
+    }
+    \header { piece = "First score" }
   }
-  \header { piece = "First score" }
 }
\ No newline at end of file