{-# LANGUAGE DeriveGeneric #-}
module Game.LambdaHack.Client.UI.UIOptions
( UIOptions(..)
) where
import Prelude ()
import Game.LambdaHack.Core.Prelude
import Control.DeepSeq
import Data.Binary
import GHC.Generics (Generic)
import Game.LambdaHack.Client.UI.HumanCmd
import qualified Game.LambdaHack.Client.UI.Key as K
import Game.LambdaHack.Client.UI.Msg
import qualified Game.LambdaHack.Definition.Color as Color
data UIOptions = UIOptions
{
uCommands :: [(K.KM, CmdTriple)]
, uHeroNames :: [(Int, (Text, Text))]
, uVi :: Bool
, uLaptop :: Bool
, uGtkFontFamily :: Text
, uSdlFontFile :: Text
, uSdlScalableSizeAdd :: Int
, uSdlBitmapSizeAdd :: Int
, uScalableFontSize :: Int
, uHistoryMax :: Int
, uMaxFps :: Int
, uNoAnim :: Bool
, uhpWarningPercent :: Int
, uMessageColors :: Maybe [(MsgClass, Color.Color)]
, uCmdline :: [String]
}
deriving (Show, Generic)
instance NFData UIOptions
instance Binary UIOptions