]> git.donarmstrong.com Git - lilypond.git/blobdiff - input/new/page-label.ly
Merge branch 'master' into nested-bookparts
[lilypond.git] / input / new / page-label.ly
index 40d489308994c2823a9184fbbac52011fa9e5434..5c76862641e4e210e7860639dd731b6f9f5649be 100644 (file)
@@ -1,4 +1,4 @@
-\version "2.11.61"
+\version "2.11.26"
 \header {
   lsrtags = "spacing"
   texidoc = "Page labels may be placed inside music or at top-level,
@@ -8,8 +8,7 @@ and referred to in markups."
 
 #(set-default-paper-size "a6")
 
-#(define-markup-command (toc-line layout props label text)
-  (symbol? markup?)
+#(define-markup-command (toc-line layout props label text) (symbol? markup?)
   (interpret-markup layout props
    (markup #:fill-line (text #:page-ref label "8" "?"))))
 
@@ -33,18 +32,15 @@ and referred to in markups."
 
   \label #'firstScore
   \score {
-    \new Staff \relative c' {
-      c2 c
-      \mark \markup {
-        A (page \concat { \page-ref #'markA "0" "?" ) }
-      } \label #'markA
-      c2 c
+    {
+      c'2 c'
+      \mark \markup { A (page \concat { \page-ref #'markA "0" "?" ) } } \label #'markA
+      c'2 c'
       \pageBreak
       \mark "B" \label #'markB
-      d2 d
-      d2 d
-      \once \override Score.RehearsalMark #'break-visibility =
-        #begin-of-line-invisible
+      d'2 d'
+      d'2 d'
+      \once \override Score.RehearsalMark #'break-visibility = #begin-of-line-invisible
       \mark "C" \label #'markC
     }
     \header { piece = "First score" }