table

Vocabulary

pdf.layout

Definition

IN: pdf.layout

TUPLE: table rows widths? ;

Methods

USING: accessors combinators kernel pdf.layout sequences ;

M: table pdf-render
    {
        [
            dup widths?>>
            [ 2drop ] [ t >>widths? rows>> set-col-widths ] if
        ]
        [
            [
                dup rows>> empty?
                [ t ]
                [ [ rows>> first dupd pdf-render ] keep swap ]
                if
            ] [ [ rest ] change-rows ] until nip dup rows>>
            [ drop f ] [ drop ] if-empty
        ]
    } 2cleave ;


USING: kernel pdf.layout ;

M: table pdf-width 2drop 450 ;