From d01831ea950fbb2d095743ac019bd332296c8137 Mon Sep 17 00:00:00 2001 From: Ludovic Court`es Date: Mon, 24 Jul 2006 12:04:09 +0000 Subject: pie: Fixed the Lout engine. * src/guile/skribilo/engine/lout.scm (lout-color-specification): Export it. * src/guile/skribilo/package/pie.scm: Also autoload `ast' on `ast-parent'. * src/guile/skribilo/package/pie/lout.scm: Autoload `(skribilo engine lout)' on `lout-color-specification'. (pie): Use `format' instead of `printf'. git-archimport-id: lcourtes@laas.fr--2005-libre/skribilo--devo--1.2--patch-31 --- src/guile/skribilo/engine/lout.scm | 2 +- src/guile/skribilo/package/pie.scm | 2 +- src/guile/skribilo/package/pie/lout.scm | 3 ++- 3 files changed, 4 insertions(+), 3 deletions(-) (limited to 'src/guile') diff --git a/src/guile/skribilo/engine/lout.scm b/src/guile/skribilo/engine/lout.scm index cb7c6fa..893ab2e 100644 --- a/src/guile/skribilo/engine/lout.scm +++ b/src/guile/skribilo/engine/lout.scm @@ -921,7 +921,7 @@ (if (< size 0) "0.3f" "1.5f") "1.0f")))) -(define (lout-color-specification skribe-color) +(define-public (lout-color-specification skribe-color) ;; Return a Lout color name, ie. a string which is either an English color ;; name or something like "rgb 0.5 0.2 0.6". `skribe-color' is a string ;; representing a Skribe color such as "black" or "#ffffff". diff --git a/src/guile/skribilo/package/pie.scm b/src/guile/skribilo/package/pie.scm index 0895748..5256f22 100644 --- a/src/guile/skribilo/package/pie.scm +++ b/src/guile/skribilo/package/pie.scm @@ -19,7 +19,7 @@ ;;; USA. (define-module (skribilo package pie) - :autoload (skribilo ast) (markup? markup-ident) + :autoload (skribilo ast) (markup? markup-ident ast-parent) :autoload (skribilo output) (output) :use-module (skribilo writer) :use-module (skribilo engine) diff --git a/src/guile/skribilo/package/pie/lout.scm b/src/guile/skribilo/package/pie/lout.scm index a9d5819..61dbcb7 100644 --- a/src/guile/skribilo/package/pie/lout.scm +++ b/src/guile/skribilo/package/pie/lout.scm @@ -27,6 +27,7 @@ :use-module (skribilo lib) :use-module (skribilo utils syntax) :use-module (skribilo utils keywords) ;; `the-options', etc. + :autoload (skribilo engine lout) (lout-color-specification) :use-module (ice-9 optargs)) (fluid-set! current-reader %skribilo-module-reader) @@ -84,7 +85,7 @@ ;; We assume `:radius' to be centimeters (if (markup-option node :radius) - (printf " radius { ~ac }\n" + (format #t " radius { ~ac }\n" (markup-option node :radius))) (format #t " labelradius { ~a }\n" -- cgit v1.2.3