* 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 142b1f19fb9ea27e3bd357adf09330b3079e342e..e8bafe89ab8287191d8b5aa575038278dd3cc85f 100644 (file)
--- 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 8483eb1e594754cd076e7c6b983feeb56f7e455f..83c824caac107fd210ffce52fd44d5ab7d1ab0a8 100644 (file)
--- 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 4a196459756740e5ee4a6fc4cb9bbb93edb195b2..d988a9f2bc80a79bad407aa71ee20720425f7b32 100644 (file)
--- 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 b4d8830727366c36e2f2031b2b6b84d51bafdb40..7cba07aaa73577f7c40d69a8f0869ced8269c2f5 100644 (file)
--- 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?)