{-# LANGUAGE DeriveGeneric #-}
module Game.LambdaHack.Common.ClientOptions
( DebugModeCli(..), defDebugModeCli
) where
import Prelude ()
import Game.LambdaHack.Common.Prelude
import Data.Binary
import GHC.Generics (Generic)
data DebugModeCli = DebugModeCli
{ sgtkFontFamily :: !(Maybe Text)
, sdlFontFile :: !(Maybe Text)
, sdlTtfSizeAdd :: !(Maybe Int)
, sdlFonSizeAdd :: !(Maybe Int)
, sfontSize :: !(Maybe Int)
, scolorIsBold :: !(Maybe Bool)
, 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)
}
deriving (Show, Eq, Generic)
instance Binary DebugModeCli
defDebugModeCli :: DebugModeCli
defDebugModeCli = DebugModeCli
{ sgtkFontFamily = Nothing
, sdlFontFile = Nothing
, sdlTtfSizeAdd = Nothing
, sdlFonSizeAdd = Nothing
, sfontSize = Nothing
, scolorIsBold = Nothing
, smaxFps = Nothing
, sdisableAutoYes = False
, snoAnim = Nothing
, snewGameCli = False
, sbenchmark = False
, stitle = Nothing
, sfontDir = Nothing
, ssavePrefixCli = "save"
, sfrontendTeletype = False
, sfrontendNull = False
, sfrontendLazy = False
, sdbgMsgCli = False
, sstopAfterSeconds = Nothing
, sstopAfterFrames = Nothing
}