table-row

Vocabulary

pdf.layout

Definition

IN: pdf.layout

TUPLE: table-row cells ;

Methods

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 ;