Tables - patch and suppressed border add-on (was Re: [cl-typesetting-devel] Problem with big table)

[Dmitriy Ivanov]

Hello folks,

The patch for tables.lisp fixes the bug repored by Peter.

The add-on specially treats the NIL value of the cell :border keyword
argument, which is useful in tables like the following (the excerpt should
be added to test.lisp):

     (tt:paragraph (:top-margin 20) "Suppressed border")
     (tt:table (:col-widths '(200 50 60 60) :border 1)
       (tt:row ()
         (tt:cell () "Item name")
         (tt:cell () (tt:paragraph (:h-align :right) "Qty"))
         (tt:cell () (tt:paragraph (:h-align :right) "Price"))
         (tt:cell () (tt:paragraph (:h-align :right) "Amount")))
       (tt:row ()
         (tt:cell () "Wonderous item")
         (tt:cell () (tt:paragraph (:h-align :right) "25"))
         (tt:cell () (tt:paragraph (:h-align :right) "$10.00"))
         (tt:cell () (tt:paragraph (:h-align :right) "$250.00")))
       (tt:row ()
         (tt:cell () "Ordinary item")
         (tt:cell () (tt:paragraph (:h-align :right) "3"))
         (tt:cell () (tt:paragraph (:h-align :right) "$5.00"))
         (tt:cell () (tt:paragraph (:h-align :right) "$15.00")))
       (tt:row ()
         (tt:cell (:col-span 3 :border nil)      ; <- suppress it at all!
           (tt:paragraph (:h-align :right) "TOTAL"))
         (tt:cell () (tt:paragraph (:h-align :right) "$265.00"))) )

Please test.
--
Sincerely,
Dmitriy Ivanov
lisp.ystok.ru
-------------- next part --------------
A non-text attachment was scrubbed...
Name: tables.diff
Type: application/octet-stream
Size: 5732 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/cl-typesetting-devel/attachments/20051031/ecefb26c/attachment.obj>