diff options
| -rw-r--r-- | src/guile/skribilo/engine/lout.scm | 2 | ||||
| -rw-r--r-- | src/guile/skribilo/package/pie.scm | 2 | ||||
| -rw-r--r-- | src/guile/skribilo/package/pie/lout.scm | 3 |
3 files changed, 4 insertions, 3 deletions
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" |