Roman numerals may be used for page numbers

[lilypond.git] / input / regression / bookparts.ly

diff --git a/input/regression/bookparts.ly b/input/regression/bookparts.ly
index 75ab8a54b5a2973462f3e80b0b14a4e6927706b0..7ee4cf168398d38d3e1f5823ac670c9bc7d626a6 100644 (file)
--- a/input/regression/bookparts.ly
+++ b/input/regression/bookparts.ly
@@ -1,4 +1,4 @@
-\version "2.14.0"
+\version "2.16.0"
 
 \header {
   texidoc = "A book can be split into several parts with different paper settings,
@@ -10,10 +10,6 @@ Page labels are also collected into the top-level paper."
 
 #(set-default-paper-size "a6")
 
-#(define-markup-command (roman-page-number layout props) ()
-  (let ((page-number (chain-assoc-get 'page:page-number props)))
-    (interpret-markup layout props (format #f "~@r" page-number))))
-
 \book {
   \tocItem \markup "First part"
   \header { title = "Book with several parts" }
@@ -25,8 +21,17 @@ Page labels are also collected into the top-level paper."
       left-margin = 20\mm
       right-margin = 20\mm
       line-width = 65\mm
-      evenHeaderMarkup = \markup \fill-line { \roman-page-number "SECOND PART" \null }
-      oddHeaderMarkup = \markup \fill-line { \null "SECOND PART" \roman-page-number }
+      page-number-type = #'roman-upper
+      evenHeaderMarkup = \markup \fill-line {
+        \fromproperty #'page:page-number-string
+        "SECOND PART"
+        \null
+      }
+      oddHeaderMarkup = \markup \fill-line {
+        \null
+        "SECOND PART"
+        \fromproperty #'page:page-number-string
+      }
     }
     \tocItem \markup "Second part"
     \markup \justify { Second part, with different margins and page header. }
@@ -35,5 +40,5 @@ Page labels are also collected into the top-level paper."
 
   \tocItem \markup "Third part"
   \markup { Third part }
-  \markuplines \table-of-contents
+  \markuplist \table-of-contents
 }