From 612d453f6d2336536e0e89e73ae9d38f08f72da4 Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Wed, 25 Jan 2006 01:30:56 +0000 Subject: [PATCH] (write-page-breaks): preliminary version of the system/spacing/linebreak hack writing to the output --- ChangeLog | 2 ++ scm/framework-eps.scm | 2 ++ scm/framework-gnome.scm | 6 +++++- scm/framework-ps.scm | 1 + scm/framework-socket.scm | 1 + scm/framework-svg.scm | 1 + scm/framework-tex.scm | 2 ++ scm/framework-texstr.scm | 1 + scm/layout-page-layout.scm | 2 +- 9 files changed, 16 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 8c77c2976b..87ad33110f 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,7 @@ 2006-01-25 Han-Wen Nienhuys + * 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 44d9adab45..5330fc1731 100644 --- 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 36dba09daa..3e1b7492a4 100644 --- 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 26ea51e042..7115326207 100644 --- 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 6467835100..8068e34cce 100644 --- 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 3a569c9bde..0eca19e39a 100644 --- 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 09af77a747..e4517fe487 100644 --- 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 2b13a29eab..88bc25a228 100644 --- 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 148ac1cc34..1dcf9033e5 100644 --- 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))) -- 2.39.5