<text-index-map> ( string width-quot -- map )

Vocabulary

ui.text.index-maps

Inputs

string	an object
width-quot	an object

Outputs

map

an object

Definition

USING: accessors kernel math sequences ;

IN: ui.text.index-maps

:: <text-index-map> ( string width-quot -- map )
    V{ } clone :> positions V{ } clone :> ends
    V{ } clone :> extras 0 :> extra! string aux>> [
        string [| ch i |
            ch width-quot call 1 - :> added added 0 > [
                extra added + extra! i positions push i 1 +
                extra + ends push extra extras push
            ] when
        ] each-index
    ] when positions ends extras text-index-map boa ; inline