IN: pdf.layout

TUPLE: table-row cells ;

USING: accessors arrays combinators kernel locals.backend
math.order pdf.canvas pdf.layout sequences ;

M: table-row pdf-render
{
[ drop ?line-break ]
[
over y>> load-local over y>> 1array load-local
-1 get-local 0 get-local [
2 load-locals -1 get-local 0 get-local [
2 load-locals -1 get-local [
1 load-locals 0 get-local 1 drop-locals
>>y
] curry dip dupd pdf-render
over y>> 0 get-local local-value max
0 get-local set-local-value 2 drop-locals
] curry curry map
swap 0 get-local local-value >>y 2 drop-locals
drop
] curry curry change-cells dup cells>> [ ] any?
[ drop f ] 2 drop-locals unless
]
[ drop margin>> 54 >>left drop ]
[
drop dup width>> >>col-width
[ ?line-break ] [ table-cell-padding inc-y ] bi
]
} 2cleave ;