codeUnitsRowColumn as companion to rowColumnCodeUnits

Question

alanz opened this issue 4 years ago · comments

We have

rowColumnCodeUnits :: RowColumn -> Rope -> Int

Can we have the inverse

codeUnitsRowColumn :: Int -> Rope -> RowColumn

It looks like it should be some combination of splitAt and measure

Alan Zimmerman · Answer 1 · Fri Feb 05 2021 22:39:46 GMT+0800 (China Standard Time)

And it seems that what I am looking for is

codeUnitsRowColumn :: Int -> Rope ->RowColumn
codeUnitsRowColumn offset rope = rowColumn . measure . fst $ splitAt offset rope

Olle Fredriksson · Answer 2 · Fri Feb 05 2021 23:43:26 GMT+0800 (China Standard Time)

Sounds good. Wanna create a PR with that?