[cl-typesetting-devel] How to make some text flushleftandsomeflush right?

[Dmitriy Ivanov]

Hello Peter,

| On Jul 26, 2006, at 2:19 PM, Peter Seibel wrote:
|> The other problem, which I just noticed, is that not all the
|> content is rendered. FWIW, the next thing that should appear is a
|> table; dunno if that matters or not.
|
| (defparameter *text*
|    '("Lorem ipsum mei ipsum senserit evertitur no. Vel noluisse
| adversarium
| ea, mei dicta evertitur te. Ipsum doctus interpretaris pro cu, graeco
| vocent te ius. Ad dicat accusam vim."
|...snip...|
| "The End."))
|
| (defun test-draw-pages (file)
|    (with-document ()
|      (let ((content
|     (compile-text ()
|       (loop for p in *text* do
|     (paragraph (:h-align :left :font "Times-Roman" :font-size 12)
|       (vspace 12)
|       (put-string p))))))
|        (draw-pages content :size :Letter :margins '(72 72 72 72)))
|      (pdf:write-document file))
|    (truename file))

To force rendering all the content, you could pass the argument :break
:after to draw-pages.
--
Sincerely,
Dmitriy Ivanov
lisp.ystok.ru