X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fpage.scm;h=a4862198010c206a36b72febae29b8d3ee3aeefa;hb=332e1fabde1ebf0bac400bdeffdee7958fdc6cfa;hp=83bcb40097d99ce941dae27a4a875b86c393b91b;hpb=df42883ffddb4b4dd7a532a22e9b9408c011b059;p=lilypond.git

diff --git a/scm/page.scm b/scm/page.scm
index 83bcb40097..a486219801 100644
--- a/scm/page.scm
+++ b/scm/page.scm
@@ -136,8 +136,8 @@
 
 
 
-(define (page-headfoot layout scopes number
-		       sym separation-symbol dir last?)
+(define (page-headfoot layout scopes number sym separation-symbol dir
+		       is-last-bookpart is-bookpart-last-page)
   
   "Create a stencil including separating space."
 
@@ -146,9 +146,8 @@
 	 (stencil (ly:make-stencil "" '(0 . 0) '(0 . 0)))
 	 (head-stencil
 	  (if (procedure? header-proc)
-	      (header-proc layout scopes number last?)
-	      #f))
-	 )
+	      (header-proc layout scopes number is-last-bookpart is-bookpart-last-page)
+	      #f)))
     
     (if (and (number? sep)
 	     (ly:stencil? head-stencil)
@@ -158,7 +157,7 @@
 	  (set! head-stencil
 		(ly:stencil-combine-at-edge
 		 stencil Y dir head-stencil
-		 sep 0.0))
+		 sep))
 
 	  
 	  ;; add arrow markers 
@@ -198,8 +197,8 @@
        (layout (ly:paper-book-paper paper-book))
        (scopes (ly:paper-book-scopes paper-book))
        (number (page-page-number page))
-       (last? (page-property page 'is-last))
-       )
+       (is-last-bookpart (page-property page 'is-last-bookpart))
+       (is-bookpart-last-page (page-property page 'is-bookpart-last-page)))
        
       (page-headfoot layout scopes number
 		(if (= dir UP)
@@ -208,7 +207,7 @@
 		(if (= dir UP)
 		    'head-separation
 		    'foot-separation)
-		dir last?)))
+		dir is-last-bookpart is-bookpart-last-page)))
 
 (define (page-header page)
   (page-header-or-footer page UP))
@@ -221,8 +220,7 @@
   (let*
       ((paper-height (ly:output-def-lookup layout 'paper-height))
        (paper-width (ly:output-def-lookup layout 'paper-width))
-
-       (lmargin (ly:output-def-lookup layout 'left-margin))
+       (lmargin (ly:output-def-lookup layout 'left-margin #f))
        (left-margin (if lmargin
 		       lmargin
 		       (/ (- paper-width
@@ -255,7 +253,7 @@
        ;; TODO: naming paper-height/paper-width not analogous to TeX.
        
        (system-xoffset (ly:output-def-lookup layout 'horizontal-shift 0.0))
-       (system-separator-markup (ly:output-def-lookup layout 'systemSeparatorMarkup))
+       (system-separator-markup (ly:output-def-lookup layout 'system-separator-markup))
        (system-separator-stencil (if (markup? system-separator-markup)
 				     (interpret-markup layout
 						       (layout-extract-page-properties layout)