-- | General content types and operations.
module Game.LambdaHack.Client.UI.ContentClientUI
  ( CCUI(..), emptyCCUI
  ) where

import Prelude ()

import qualified Data.EnumMap.Strict as EM
import qualified Data.Map.Strict as M

import Game.LambdaHack.Client.UI.Content.Input
import Game.LambdaHack.Client.UI.Content.Screen

-- | Operations for all content types, gathered together.
data CCUI = CCUI
  { coinput  :: InputContent
  , coscreen :: ScreenContent
  }

emptyCCUI :: CCUI
emptyCCUI = CCUI
  { coinput = InputContent M.empty [] M.empty
  , coscreen = ScreenContent { rwidth = 0
                             , rheight = 0
                             , rwebAddress = ""
                             , rintroScreen = ([], [])
                             , rapplyVerbMap = EM.empty
                             , rFontFiles = []
                             }
  }