From: Pedro Kroger <kroeger@pedrokroeger.net>
Date: Wed, 22 Sep 2004 20:48:52 +0000 (+0000)
Subject: 	* scm/paper.scm (set-paper-dimensions): add printfirstpagenumber.
X-Git-Tag: release/2.3.19~28
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=1aae5cc35253718218ec7960c661009c4c972cc8;p=lilypond.git

	* scm/paper.scm (set-paper-dimensions): add printfirstpagenumber.

	* scm/page-layout.scm (plain-header): if printfirstpagenumber is
	true will print the page number in the first page.

	* Documentation/user/changing-defaults.itely: Document
	printfirstpagenumber.
---

diff --git a/ChangeLog b/ChangeLog
index 142b1f19fb..e8bafe89ab 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,13 @@
+2004-09-22  Pedro Kroger  <kroeger@pedrokroeger.net>
+
+	* scm/paper.scm (set-paper-dimensions): add printfirstpagenumber.
+
+	* scm/page-layout.scm (plain-header): if printfirstpagenumber is
+	true will print the page number in the first page.
+
+	* Documentation/user/changing-defaults.itely: Document
+	printfirstpagenumber.
+
 2004-09-22  Han-Wen Nienhuys   <hanwen@xs4all.nl>
 
 	* lily/phrasing-slur-engraver.cc (acknowledge_grob): avoid more
diff --git a/Documentation/user/changing-defaults.itely b/Documentation/user/changing-defaults.itely
index 8483eb1e59..83c824caac 100644
--- a/Documentation/user/changing-defaults.itely
+++ b/Documentation/user/changing-defaults.itely
@@ -2213,6 +2213,9 @@ The default layout responds to the following settings in the
 @table @code
 @item firstpagenumber
  The value of the page number of the first page. Default is 1.
+@item printfirstpagenumber
+ If set to true will print the page number in the first page. Default is
+ false.
 @item hsize
  The width of the page
 @item vsize
diff --git a/scm/page-layout.scm b/scm/page-layout.scm
index 4a19645975..d988a9f2bc 100644
--- a/scm/page-layout.scm
+++ b/scm/page-layout.scm
@@ -50,9 +50,11 @@
     (if (even? page-number)
         (set! line (reverse line)))
     
-    (if (< (ly:output-def-lookup paper 'firstpagenumber) page-number)
-        (interpret-markup
-         paper props (make-fill-line-markup line))
+    (if ((if (ly:output-def-lookup paper 'printfirstpagenumber)
+             <=
+             <)
+         (ly:output-def-lookup paper 'firstpagenumber) page-number)
+        (interpret-markup paper props (make-fill-line-markup line))
         '())))
 
 ;; TODO: add publisher ID on non-first page.
diff --git a/scm/paper.scm b/scm/paper.scm
index b4d8830727..7cba07aaa7 100644
--- a/scm/paper.scm
+++ b/scm/paper.scm
@@ -92,6 +92,7 @@
     (module-define! m 'footsep (* 4 mm))
     (module-define! m 'leftmargin #f)
     (module-define! m 'firstpagenumber 1)
+    (module-define! m 'printfirstpagenumber #f)
     (module-define! m 'rightmargin (* 10 mm))))
 
 (define (internal-set-paper-size module name landscape?)