[cl-typesetting-devel] Couple of notes

[Marc Battyani]

Dmitri Ivanov wrote:

Hi Dmitri,

> The references addition seems to work fine. Other improvements also works
on
> LWW 4.3 (except that I haven't tested cl-typegraph and pprint). Below are
> two little notes.

Good. These days I generate 1300+ pages documents with thousands of
references and indeed it seems to be ok.

> 1. cl-typsetting system definition
> Modules "top-level" and "pprint" should depend on "references".
>
> 2. top-level.lisp : draw-block enhanced by the background-color parameter
>
> (defmethod draw-block (content x y dx dy &key border background-color
>                                             (padding 5) rotation (v-align
> :top)
>                                             special-fn)
> ;;; On the current *page*
>   (pdf:with-saved-state
>     (pdf:translate x y)
>     (when rotation
>       (pdf:rotate rotation))
>     (with-quad (left top right bottom) padding
>       (when border  (pdf:set-line-width border) (pdf:set-gray-stroke 0))
>       (cond (background-color (pdf:set-color-fill background-color))
>             (border  (pdf:set-gray-fill 1)))
>       (when (or border background-color)
>         (pdf:basic-rect (- left) top (+ dx left right) (- (+ dy top
> bottom))))
>       (cond (border   (pdf:fill-and-stroke))
>             (background-color (pdf:fill-path)))
>       (cond (background-color (pdf:set-color-fill 0))
>             (border  (pdf:set-gray-fill 0))) )
>     (let ((vbox (make-filled-vbox content dx dy v-align)))
>       ;(push vbox *boxes*)
>       (when special-fn
>         (funcall special-fn vbox 0 0))
>       (stroke vbox 0 0))))

OK, I will add this. Now I'm leaving to go to the Amsterdam's Lisp meeting.
:)

Marc