column-line-offsets ( table -- xs )

Vocabulary

ui.gadgets.tables.private

Inputs

table

an object

Outputs

xs

an object

Definition

USING: accessors kernel math sequences ;

IN: ui.gadgets.tables.private

: column-line-offsets ( table -- xs )
    [ column-widths>> ] [ gap>> ] bi
    [ column-offsets nip [ f ] ] [
        2/ [ - ] curry [ [ rest-slice ] ] dip [ map ] curry
        compose
    ] bi if-empty ;