module Rasa.Ext.Cursors.Internal.Actions
( delete
, insertText
, findNext
, findPrev
, findNextFrom
, findPrevFrom
, moveRangesByN
, moveRangesByC
) where
import qualified Yi.Rope as Y
import Control.Lens
import Control.Lens.Text
import Rasa.Ext
import Rasa.Ext.Cursors.Internal.Base
moveSameLineRangesBy :: CrdRange -> Coord -> BufAction ()
moveSameLineRangesBy (Range _ (Coord endRow endCol)) amt = do
let moveInLine r@(Range (Coord startRow startCol) _) = return $
if endRow == startRow && startCol > endCol
then moveRange amt r
else r
rangeDo moveInLine >>= setRanges
delete :: BufAction ()
delete = rangeDo_ $ \r -> do
deleteRange r
moveSameLineRangesBy r (negate $ sizeOfR r)
insertText :: Y.YiString -> BufAction ()
insertText txt = rangeDo_ $ \r@(Range s _) -> do
insertAt s txt
moveSameLineRangesBy r (Coord 0 (Y.length txt))
findNext :: Y.YiString -> BufAction ()
findNext pat = do
res <- rangeDo $ \(Range _ e) -> do
off <- findNextFrom pat e
let end = moveCursorByN 1 off
return $ Range off end
setRanges res
findNextFrom :: Y.YiString -> Coord -> BufAction Coord
findNextFrom pat c = do
txt <- getText
let distance = txt ^. afterC c . asText . tillNext (Y.toText pat) . from asText . to sizeOf
return (distance + c)
findPrev :: Y.YiString -> BufAction ()
findPrev pat = do
res <- rangeDo $ \(Range s _) -> do
off <- findPrevFrom pat s
let end = moveCursorByN 1 off
return $ Range off end
setRanges res
findPrevFrom :: Y.YiString -> Coord -> BufAction Coord
findPrevFrom pat c = do
txt <- getText
let distance = txt ^. beforeC c . asText . tillPrev (Y.toText pat) . from asText . to sizeOf
return (c distance)
moveRangesByN :: Int -> BufAction ()
moveRangesByN n = overEachRange $ return . moveRangeByN n
moveRangesByC :: Coord -> BufAction ()
moveRangesByC c = overEachRange $ return . moveRange c