col-widths ( canvas cells -- widths )

Vocabulary

pdf.layout

Inputs

canvas	an object
cells	an object

Outputs

widths

an object

Definition

USING: accessors kernel sequences ;

IN: pdf.layout

: col-widths ( canvas cells -- widths )
    [
        [
            contents>>
            [ 0 ]
            [ [ [ dupd pdf-width ] [ 0 ] if* ] map maximum ]
            if-empty
        ] [ 0 ] if*
    ] map nip ;