module Rasa.Internal.Buffer
( Buffer
, HasBuffer(..)
, text
, mkBuffer
) where
import Rasa.Internal.Extensions
import qualified Yi.Rope as Y
import Control.Lens hiding (matching)
import Data.Map
data Buffer = Buffer
{ _text' :: Y.YiString
, _bufExts' :: ExtMap
}
makeLenses ''Buffer
instance HasBufExts Buffer where
bufExts = bufExts'
instance Show Buffer where
show b = "<Buffer {text:" ++ show (b^..text . to (Y.take 30)) ++ "...,\n"
++ "exts: " ++ show (b^.bufExts) ++ "}>\n"
class HasBuffer a where
buffer :: Lens' a Buffer
instance HasBuffer Buffer where
buffer = lens id (flip const)
text :: HasBuffer b => Lens' b Y.YiString
text = buffer.text'
mkBuffer :: Y.YiString -> Buffer
mkBuffer txt =
Buffer
{ _text' = txt
, _bufExts' = empty
}