* scm/layout-page-layout.scm (page-breaking-wrapper): new

[lilypond.git] / ly / paper-defaults.ly

diff --git a/ly/paper-defaults.ly b/ly/paper-defaults.ly
index 9fae0cabd55ccaad0748f6eea25b7f88b98b8a99..44ec0b961e6a8a0ba8edd5e85727627322ca3632 100644 (file)
--- a/ly/paper-defaults.ly
+++ b/ly/paper-defaults.ly
@@ -96,7 +96,18 @@
        (baseline-skip . 3)
        (word-space . 0.6)))
 
-    #(define page-breaking optimal-page-breaks)
+    #(define page-breaking ly:optimal-breaking)
+    #(define page-breaking-wrapper page-breaking-wrapper)
+    #(define page-post-process post-process-pages)
+
+    #(define write-page-layout (ly:get-option 'dump-tweaks))
+    #(define system-maximum-stretch-procedure
+       (lambda (line)
+        (if (stretchable-line? line)
+            (let ((height (line-height line)))
+              (/ (* height height) 80.0))
+            0.0)))
+
 %    #(define page-music-height default-page-music-height )
 %    #(define page-make-stencil default-page-make-stencil )