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