summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/guile/skribilo/engine/info.scm12
1 files changed, 8 insertions, 4 deletions
diff --git a/src/guile/skribilo/engine/info.scm b/src/guile/skribilo/engine/info.scm
index 19168f2..264b491 100644
--- a/src/guile/skribilo/engine/info.scm
+++ b/src/guile/skribilo/engine/info.scm
@@ -28,7 +28,8 @@
:use-module (skribilo package base)
:autoload (skribilo parameters) (*destination-file*)
:autoload (skribilo output) (output)
- :autoload (skribilo utils justify) (make-justifier with-justification)
+ :autoload (skribilo utils justify) (output-justified make-justifier
+ with-justification)
:autoload (skribilo utils text-table) (table->ascii)
:use-module (srfi srfi-8)
:use-module (srfi srfi-13)
@@ -43,7 +44,11 @@
:version 1.0
:format "info"
:delegate (find-engine 'base)
- :filter #f ;; XXX: Do we need something?
+ :filter (lambda (str)
+ ;; Justify all the strings that are to be output.
+ (with-output-to-string
+ (lambda ()
+ (output-justified str))))
:custom '()))
;*---------------------------------------------------------------------*/
@@ -142,8 +147,7 @@
(let ((title (if title title subtitle)))
(if (string? title)
title
- (with-output-to-string
- (lambda () (output title e)))))))
+ (ast->string title)))))
;*---------------------------------------------------------------------*/
;* info ::%document ... */