module Vgrep.Environment
( Environment (..)
, Viewport (..)
, config
, viewport
, vpHeight
, vpWidth
, viewportWidth
, viewportHeight
, module Vgrep.Environment.Config
) where
import Control.Lens.Compat
import Vgrep.Environment.Config
data Viewport = Viewport { _vpWidth :: Int, _vpHeight :: Int }
deriving (Eq, Show)
makeLenses ''Viewport
data Environment = Env
{ _config :: Config
, _viewport :: Viewport
} deriving (Eq, Show)
makeLenses ''Environment
viewportHeight, viewportWidth :: Lens' Environment Int
viewportHeight = viewport . vpHeight
viewportWidth = viewport . vpWidth