{-# LANGUAGE DeriveGeneric #-}
module Game.LambdaHack.Client.ClientOptions
( ClientOptions(..), defClientOptions
) where
import Prelude ()
import Game.LambdaHack.Common.Prelude
import Data.Binary
import GHC.Generics (Generic)
data ClientOptions = ClientOptions
{ sgtkFontFamily :: Maybe Text
, sdlFontFile :: Maybe Text
, sdlTtfSizeAdd :: Maybe Int
, sdlFonSizeAdd :: Maybe Int
, sfontSize :: Maybe Int
, scolorIsBold :: Maybe Bool
, 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
}
deriving (Show, Eq, Generic)
instance Binary ClientOptions
defClientOptions :: ClientOptions
defClientOptions = ClientOptions
{ sgtkFontFamily = Nothing
, sdlFontFile = Nothing
, sdlTtfSizeAdd = Nothing
, sdlFonSizeAdd = Nothing
, sfontSize = Nothing
, scolorIsBold = 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
}