IN: pdf.layout

TUPLE: table rows widths? ;

USING: accessors combinators kernel pdf.layout sequences ;

M: table pdf-render
{
[
dup widths?>>
[ 2drop ] [ t >>widths? rows>> set-col-widths ] if
]
[
[
dup rows>> empty?
[ t ]
[ [ rows>> first dupd pdf-render ] keep swap ]
if
] [ [ rest ] change-rows ] until nip dup rows>>
[ drop f ] [ drop ] if-empty
]
} 2cleave ;

USING: kernel pdf.layout ;

M: table pdf-width 2drop 400 ;