table-cell

Vocabulary

pdf.layout

Definition

IN: pdf.layout

TUPLE: table-cell contents width ;

Methods

USING: accessors combinators kernel math pdf.layout sequences ;

M: table-cell pdf-render
    {
        [ width>> >>col-width 0 >>x drop ]
        [
            [ [ dupd pdf-render ] map nip ] change-contents
            [ contents>> [ ] any? ] 1guard
        ]
        [
            width>> table-cell-padding + swap margin>>
            [ + ] change-left drop
        ]
    } 2cleave ;