{-# LANGUAGE DeriveGeneric #-}
module Game.LambdaHack.Client.ClientOptions
( ClientOptions(..), defClientOptions
) where
import Prelude ()
import Game.LambdaHack.Core.Prelude
import Data.Binary
import GHC.Generics (Generic)
data ClientOptions = ClientOptions
{ sgtkFontFamily :: Maybe Text
, sdlFontFile :: Maybe Text
, sdlScalableSizeAdd :: Maybe Int
, sdlBitmapSizeAdd :: Maybe Int
, sscalableFontSize :: Maybe Int
, slogPriority :: Maybe Int
, smaxFps :: Maybe Int
, sdisableAutoYes :: Bool
, snoAnim :: Maybe Bool
, snewGameCli :: Bool
, sbenchmark :: Bool
, stitle :: Maybe Text
, sfontDir :: Maybe FilePath
, ssavePrefixCli :: String
, sfrontendTeletype :: Bool
, sfrontendNull :: Bool
, sfrontendLazy :: Bool
, sdbgMsgCli :: Bool
, sstopAfterSeconds :: Maybe Int
, sstopAfterFrames :: Maybe Int
, sprintEachScreen :: Bool
, sexposePlaces :: Bool
, sexposeItems :: Bool
, sexposeActors :: Bool
}
deriving (Show, Eq, Generic)
instance Binary ClientOptions
defClientOptions :: ClientOptions
defClientOptions = ClientOptions
{ sgtkFontFamily = Nothing
, sdlFontFile = Nothing
, sdlScalableSizeAdd = Nothing
, sdlBitmapSizeAdd = Nothing
, sscalableFontSize = Nothing
, slogPriority = Nothing
, smaxFps = Nothing
, sdisableAutoYes = False
, snoAnim = Nothing
, snewGameCli = False
, sbenchmark = False
, stitle = Nothing
, sfontDir = Nothing
, ssavePrefixCli = ""
, sfrontendTeletype = False
, sfrontendNull = False
, sfrontendLazy = False
, sdbgMsgCli = False
, sstopAfterSeconds = Nothing
, sstopAfterFrames = Nothing
, sprintEachScreen = False
, sexposePlaces = False
, sexposeItems = False
, sexposeActors = False
}