(write-page-breaks): preliminary

version of the system/spacing/linebreak hack writing to the output

diff --git a/ChangeLog b/ChangeLog
index 8c77c2976b3eebac1c0c6d1a7ac4b029cab3deea..87ad33110f76d05136d36754cff591cc955ea474 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2006-01-25  Han-Wen Nienhuys  <hanwen@xs4all.nl>
 
+       * scm/: more imports.
+
        * scm/page.scm (make-page): add footer/header.
        (annotate-space-left): revise: only take page argument.
        (layout->page-init): new function.

diff --git a/scm/framework-eps.scm b/scm/framework-eps.scm
index 44d9adab459a75026fab74820a8b0de2b8c55a17..5330fc1731f54729085082c7ac69adcdeab2ec92 100644 (file)
--- a/scm/framework-eps.scm
+++ b/scm/framework-eps.scm
@@ -13,6 +13,8 @@
             (ice-9 format)
             (guile)
             (scm framework-ps)
+            (scm paper-system)
+            (scm page)
             (scm output-ps)
             (srfi srfi-1)
             (srfi srfi-13)

diff --git a/scm/framework-gnome.scm b/scm/framework-gnome.scm
index 36dba09daa21c9a300e4f4c068bb35e53611cf49..3e1b7492a4bd4d9aa03ee876d0e06dc288a3201b 100644 (file)
--- a/scm/framework-gnome.scm
+++ b/scm/framework-gnome.scm
@@ -9,7 +9,11 @@
 
 (define-module (scm framework-gnome))
 
-(use-modules (guile) (oop goops) (lily))
+(use-modules (guile)
+            (oop goops)
+            (scm page)
+            (scm paper-system)
+            (lily))
 
 (use-modules
  (srfi srfi-2)

diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index 26ea51e0422214e34459faf109967d6537a2d6ec..711532620714297c5b7b30a6ca302a2254c5b719 100644 (file)
--- a/scm/framework-ps.scm
+++ b/scm/framework-ps.scm
@@ -13,6 +13,7 @@
             (ice-9 format)
             (guile)
             (scm page)
+            (scm paper-system)
             (srfi srfi-1)
             (srfi srfi-13)
             (lily))

diff --git a/scm/framework-socket.scm b/scm/framework-socket.scm
index 64678351002aa10869d4a021d738481a3fdb82ab..8068e34cce6f3998f699e7f167b9bb07c52fdc04 100644 (file)
--- a/scm/framework-socket.scm
+++ b/scm/framework-socket.scm
@@ -4,6 +4,7 @@
 
 (use-modules (ice-9 regex)
             (ice-9 string-fun)
+            (scm paper-system)
             (ice-9 format)
             (guile)
             (srfi srfi-1)

diff --git a/scm/framework-svg.scm b/scm/framework-svg.scm
index 3a569c9bde3a7101e0de9f65d762b26ac9341ba1..0eca19e39a43f515da262bdfbb19c3809e300f26 100644 (file)
--- a/scm/framework-svg.scm
+++ b/scm/framework-svg.scm
@@ -9,6 +9,7 @@
 
 (use-modules (guile)
             (lily)
+            (scm page)
             (scm output-svg))
 
 (use-modules (srfi srfi-1)

diff --git a/scm/framework-tex.scm b/scm/framework-tex.scm
index 09af77a74713ae007e784a7bcb77f893de810e1d..e4517fe4872520594ace9fcb9ac5c77c0d198ea1 100644 (file)
--- a/scm/framework-tex.scm
+++ b/scm/framework-tex.scm
@@ -11,6 +11,8 @@
 (use-modules (ice-9 regex)
             (ice-9 string-fun)
             (ice-9 format)
+            (scm page)
+            (scm paper-system)
             (guile)
             (srfi srfi-1)
             (srfi srfi-13)

diff --git a/scm/framework-texstr.scm b/scm/framework-texstr.scm
index 2b13a29eabd0893a1f5ffd47f819689534806af0..88bc25a228e0200c6ce9e18e3aba338b02c1d7b0 100644 (file)
--- a/scm/framework-texstr.scm
+++ b/scm/framework-texstr.scm
@@ -9,6 +9,7 @@
            output-classic-framework-tex))
 
 (use-modules (ice-9 regex)
+            (scm paper-system)
             (ice-9 string-fun)
             (ice-9 format)
             (guile)

diff --git a/scm/layout-page-layout.scm b/scm/layout-page-layout.scm
index 148ac1cc341f536e37e377f9fbbc68b71b06e04f..1dcf9033e579deed4317404921e924efecb02b3b 100644 (file)
--- a/scm/layout-page-layout.scm
+++ b/scm/layout-page-layout.scm
@@ -75,7 +75,7 @@
 
 
 
-(define (post-process-pages pages)
+(define (post-process-pages layout pages)
   (if (ly:get-option 'write-page-layout)
       (write-page-breaks pages)))