module Rasa.Internal.Buffer
( Buffer
, BufAction
, HasBuffer(..)
, BufRef(..)
, text
, mkBuffer
, ref
, buffers
, nextBufId
) where
import Eve
import qualified Yi.Rope as Y
import Control.Lens hiding (matching)
import qualified Data.Map as M
import qualified Data.IntMap as IM
import Data.List
import Data.Default
newtype BufRef =
BufRef Int
deriving (Show, Eq, Ord)
newtype NextBufId = NextBufId
{ _nextBufId' :: Int
} deriving Show
instance Default NextBufId where
def = NextBufId 0
makeLenses ''NextBufId
nextBufId :: HasStates s => Lens' s Int
nextBufId = stateLens.nextBufId'
data Buffer = Buffer
{ _text' :: Y.YiString
, _bufStates' :: States
, _ref :: BufRef
}
makeLenses ''Buffer
instance HasStates Buffer where
states = bufStates'
instance HasEvents Buffer where
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'
instance Show Buffer where
show b = "text:" ++ (Y.toString . Y.take 30 $ (b^.text)) ++ "...,\n"
++ "exts: " ++ extText ++ "}>\n"
where
extText = intercalate "\n" $ show <$> b^.states.to M.toList
type BufAction a = Action Buffer a
newtype Buffers = Buffers
{ _buffers' :: IM.IntMap Buffer
} deriving Show
makeLenses '' Buffers
instance Default Buffers where
def = Buffers mempty
buffers :: HasStates s => Lens' s (IM.IntMap Buffer)
buffers = stateLens.buffers'
mkBuffer :: Y.YiString -> BufRef -> Buffer
mkBuffer txt bRef =
Buffer
{ _text' = txt
, _bufStates' = mempty
, _ref = bRef
}