module Game.LambdaHack.Client.Config
( ConfigUI(..)
) where
import Control.DeepSeq
import Data.Binary
import Game.LambdaHack.Client.HumanCmd
import qualified Game.LambdaHack.Common.Key as K
data ConfigUI = ConfigUI
{
configCommands :: ![(K.KM, HumanCmd)]
, configAppDataDirUI :: !FilePath
, configUICfgFile :: !FilePath
, configMacros :: ![(K.KM, K.KM)]
, configFont :: !String
, configHistoryMax :: !Int
}
deriving Show
instance NFData ConfigUI
instance Binary ConfigUI where
put ConfigUI{..} = do
put configCommands
put configAppDataDirUI
put configUICfgFile
put configMacros
put configFont
put configHistoryMax
get = do
configCommands <- get
configAppDataDirUI <- get
configUICfgFile <- get
configMacros <- get
configFont <- get
configHistoryMax <- get
return ConfigUI{..}