* scm/define-markup-commands.scm (verbatim-file): new markup

[lilypond.git] / scm / layout-page-layout.scm

diff --git a/scm/layout-page-layout.scm b/scm/layout-page-layout.scm
index 812e4bc044ba686d4eace959322fafe80e2f7b92..7137f47de69e33487a543ee16380ad3e543398c8 100644 (file)
--- a/scm/layout-page-layout.scm
+++ b/scm/layout-page-layout.scm
@@ -101,6 +101,7 @@
        (dump-tweaks out-port (reverse val) (ly:make-moment 0 1))
         (display "}" out-port))
        tweaks)
+     (close-port out-port)
      ))
 
   (define (handle-page page)
@@ -127,23 +128,16 @@
        (set! index (1+ index))
        ))
     (for-each handle-system (page-lines page)))
-  
-  
+
   (for-each handle-page pages)
   (dump-all-tweaks))
 
-
-
 (define (post-process-pages layout pages)
-  (if (ly:output-def-lookup layout 'write-page-layout)
+  (if (ly:output-def-lookup layout 'write-page-layout #f)
       (write-page-breaks pages)))
 
-
-
-;;; optimal page breaking
-
-;;; This is not optimal page breaking, this is optimal distribution of
-;;; lines over pages; line breaks are a given.
+;; Optimal distribution of
+;; lines over pages; line breaks are a given.
 
 ;; TODO:
 ;;
@@ -162,6 +156,7 @@
   (define scopes (ly:paper-book-scopes paper-book))
   (define force-equalization-factor #f)
   (define (get-path node done)
+    
     "Follow NODE.PREV, and return as an ascending list of pages. DONE
 is what have collected so far, and has ascending page numbers."
 
@@ -324,7 +319,6 @@ corresponding to DONE-LINES.
 
 CURRENT-BEST is the best result sofar, or #f."
 
-
     (let* ((this-page-num (if (null? best-paths)
                               (ly:output-def-lookup paper 'firstpagenumber)
                               (1+ (page-page-number (car best-paths)))))
@@ -438,8 +432,7 @@ DONE."
        (ly:output-def-lookup paper 'verticalequalizationfactor 0.3))
   
   (let* ((best-break-node (walk-lines '() '() lines))
-        (break-nodes (get-path best-break-node '()))
-        )
+        (break-nodes (get-path best-break-node '())))
 
     (page-set-property! (car (last-pair break-nodes)) 'is-last #t)
     (if #f; (ly:get-option 'verbose)