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
                    [ load-local 0 get-local >>y 1 drop-locals ]
                    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 drop
                2 drop-locals
            ] curry curry change-cells
            [ cells>> [ ] any? ] 1guard 2 drop-locals
        ]
        [ drop margin>> 54 >>left drop ]
        [
            drop dup width>> >>col-width
            [ ?line-break ] [ table-cell-padding inc-y ] bi
        ]
    } 2cleave ;