LambdaHack-0.11.0.1: A game engine library for tactical squad ASCII roguelike dungeon crawlers
Safe HaskellNone
LanguageHaskell2010

Game.LambdaHack.Client.UI.Msg

Description

Game messages displayed on top of the screen for the player to read and then saved to player history.

Synopsis

Msg

data Msg Source #

The type of a single game message.

Instances

Instances details
Binary Msg Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

Methods

put :: Msg -> Put

get :: Get Msg

putList :: [Msg] -> Put

Generic Msg Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

Associated Types

type Rep Msg 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

type Rep Msg = D1 ('MetaData "Msg" "Game.LambdaHack.Client.UI.Msg" "LambdaHack-0.11.0.1-BLuOaw8nuizISmzkanqI8h" 'False) (C1 ('MetaCons "Msg" 'PrefixI 'True) (S1 ('MetaSel ('Just "msgShow") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 AttrString) :*: (S1 ('MetaSel ('Just "msgSave") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 AttrString) :*: S1 ('MetaSel ('Just "msgClass") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 MsgClass))))

Methods

from :: Msg -> Rep Msg x

to :: Rep Msg x -> Msg

Show Msg Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

Methods

showsPrec :: Int -> Msg -> ShowS #

show :: Msg -> String #

showList :: [Msg] -> ShowS #

Eq Msg Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

Methods

(==) :: Msg -> Msg -> Bool #

(/=) :: Msg -> Msg -> Bool #

Ord Msg Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

Methods

compare :: Msg -> Msg -> Ordering #

(<) :: Msg -> Msg -> Bool #

(<=) :: Msg -> Msg -> Bool #

(>) :: Msg -> Msg -> Bool #

(>=) :: Msg -> Msg -> Bool #

max :: Msg -> Msg -> Msg #

min :: Msg -> Msg -> Msg #

type Rep Msg Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

type Rep Msg = D1 ('MetaData "Msg" "Game.LambdaHack.Client.UI.Msg" "LambdaHack-0.11.0.1-BLuOaw8nuizISmzkanqI8h" 'False) (C1 ('MetaCons "Msg" 'PrefixI 'True) (S1 ('MetaSel ('Just "msgShow") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 AttrString) :*: (S1 ('MetaSel ('Just "msgSave") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 AttrString) :*: S1 ('MetaSel ('Just "msgClass") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 MsgClass))))

class MsgShared a Source #

Minimal complete definition

toMsgShared

Instances

Instances details
MsgShared MsgClassIgnore Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

Methods

toMsgShared :: [(String, Color)] -> MsgClassIgnore -> Text -> Msg Source #

MsgShared MsgClassSave Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

Methods

toMsgShared :: [(String, Color)] -> MsgClassSave -> Text -> Msg Source #

MsgShared MsgClassShow Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

Methods

toMsgShared :: [(String, Color)] -> MsgClassShow -> Text -> Msg Source #

MsgShared MsgClassShowAndSave Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

Methods

toMsgShared :: [(String, Color)] -> MsgClassShowAndSave -> Text -> Msg Source #

toMsgShared :: MsgShared a => [(String, Color)] -> a -> Text -> Msg Source #

toMsgDistinct :: [(String, Color)] -> MsgClassDistinct -> Text -> Text -> Msg Source #

data MsgClassShowAndSave Source #

Constructors

MsgBookKeeping 
MsgStatusWakeup 
MsgStatusStopUs 
MsgStatusStopThem 
MsgItemCreation 
MsgItemRuination 
MsgDeathVictory 
MsgDeathDeafeat 
MsgDeathBoring 
MsgRiskOfDeath 
MsgPointmanSwap 
MsgFactionIntel 
MsgFinalOutcome 
MsgBackdropInfo 
MsgTerrainReveal 
MsgItemDiscovery 
MsgSpottedActor 
MsgItemMovement 
MsgActionMajor 
MsgActionMinor 
MsgEffectMajor 
MsgEffectMedium 
MsgEffectMinor 
MsgMiscellanous 
MsgHeardOutside 
MsgHeardNearby 
MsgHeardFaraway 
MsgBackdropFocus 
MsgActionWarning 
MsgRangedMightyWe 
MsgRangedMightyUs 
MsgRangedOthers 
MsgRangedNormalUs 
MsgGoodMiscEvent 
MsgBadMiscEvent 
MsgNeutralEvent 
MsgSpecialEvent 
MsgMeleeMightyWe 
MsgMeleeMightyUs 
MsgMeleeComplexWe 
MsgMeleeComplexUs 
MsgMeleeOthers 
MsgMeleeNormalUs 
MsgActionComplete 
MsgAtFeetMajor 
MsgAtFeetMinor 
MsgTutorialHint 

Instances

Instances details
MsgShared MsgClassShowAndSave Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

Methods

toMsgShared :: [(String, Color)] -> MsgClassShowAndSave -> Text -> Msg Source #

Binary MsgClassShowAndSave Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

Methods

put :: MsgClassShowAndSave -> Put

get :: Get MsgClassShowAndSave

putList :: [MsgClassShowAndSave] -> Put

Bounded MsgClassShowAndSave Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

Methods

minBound :: MsgClassShowAndSave #

maxBound :: MsgClassShowAndSave #

Enum MsgClassShowAndSave Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

Methods

succ :: MsgClassShowAndSave -> MsgClassShowAndSave #

pred :: MsgClassShowAndSave -> MsgClassShowAndSave #

toEnum :: Int -> MsgClassShowAndSave #

fromEnum :: MsgClassShowAndSave -> Int #

enumFrom :: MsgClassShowAndSave -> [MsgClassShowAndSave] #

enumFromThen :: MsgClassShowAndSave -> MsgClassShowAndSave -> [MsgClassShowAndSave] #

enumFromTo :: MsgClassShowAndSave -> MsgClassShowAndSave -> [MsgClassShowAndSave] #

enumFromThenTo :: MsgClassShowAndSave -> MsgClassShowAndSave -> MsgClassShowAndSave -> [MsgClassShowAndSave] #

Generic MsgClassShowAndSave Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

Associated Types

type Rep MsgClassShowAndSave 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

type Rep MsgClassShowAndSave = D1 ('MetaData "MsgClassShowAndSave" "Game.LambdaHack.Client.UI.Msg" "LambdaHack-0.11.0.1-BLuOaw8nuizISmzkanqI8h" 'False) (((((C1 ('MetaCons "MsgBookKeeping" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "MsgStatusWakeup" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "MsgStatusStopUs" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "MsgStatusStopThem" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "MsgItemCreation" 'PrefixI 'False) (U1 :: Type -> Type)))) :+: ((C1 ('MetaCons "MsgItemRuination" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "MsgDeathVictory" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "MsgDeathDeafeat" 'PrefixI 'False) (U1 :: Type -> Type))) :+: (C1 ('MetaCons "MsgDeathBoring" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "MsgRiskOfDeath" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "MsgPointmanSwap" 'PrefixI 'False) (U1 :: Type -> Type))))) :+: (((C1 ('MetaCons "MsgFactionIntel" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "MsgFinalOutcome" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "MsgBackdropInfo" 'PrefixI 'False) (U1 :: Type -> Type))) :+: (C1 ('MetaCons "MsgTerrainReveal" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "MsgItemDiscovery" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "MsgSpottedActor" 'PrefixI 'False) (U1 :: Type -> Type)))) :+: ((C1 ('MetaCons "MsgItemMovement" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "MsgActionMajor" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "MsgActionMinor" 'PrefixI 'False) (U1 :: Type -> Type))) :+: (C1 ('MetaCons "MsgEffectMajor" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "MsgEffectMedium" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "MsgEffectMinor" 'PrefixI 'False) (U1 :: Type -> Type)))))) :+: ((((C1 ('MetaCons "MsgMiscellanous" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "MsgHeardOutside" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "MsgHeardNearby" 'PrefixI 'False) (U1 :: Type -> Type))) :+: (C1 ('MetaCons "MsgHeardFaraway" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "MsgBackdropFocus" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "MsgActionWarning" 'PrefixI 'False) (U1 :: Type -> Type)))) :+: ((C1 ('MetaCons "MsgRangedMightyWe" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "MsgRangedMightyUs" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "MsgRangedOthers" 'PrefixI 'False) (U1 :: Type -> Type))) :+: (C1 ('MetaCons "MsgRangedNormalUs" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "MsgGoodMiscEvent" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "MsgBadMiscEvent" 'PrefixI 'False) (U1 :: Type -> Type))))) :+: (((C1 ('MetaCons "MsgNeutralEvent" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "MsgSpecialEvent" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "MsgMeleeMightyWe" 'PrefixI 'False) (U1 :: Type -> Type))) :+: (C1 ('MetaCons "MsgMeleeMightyUs" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "MsgMeleeComplexWe" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "MsgMeleeComplexUs" 'PrefixI 'False) (U1 :: Type -> Type)))) :+: ((C1 ('MetaCons "MsgMeleeOthers" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "MsgMeleeNormalUs" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "MsgActionComplete" 'PrefixI 'False) (U1 :: Type -> Type))) :+: (C1 ('MetaCons "MsgAtFeetMajor" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "MsgAtFeetMinor" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "MsgTutorialHint" 'PrefixI 'False) (U1 :: Type -> Type)))))))

Methods

from :: MsgClassShowAndSave -> Rep MsgClassShowAndSave x

to :: Rep MsgClassShowAndSave x -> MsgClassShowAndSave

Show MsgClassShowAndSave Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

Methods

showsPrec :: Int -> MsgClassShowAndSave -> ShowS #

show :: MsgClassShowAndSave -> String #

showList :: [MsgClassShowAndSave] -> ShowS #

Eq MsgClassShowAndSave Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

Methods

(==) :: MsgClassShowAndSave -> MsgClassShowAndSave -> Bool #

(/=) :: MsgClassShowAndSave -> MsgClassShowAndSave -> Bool #

Ord MsgClassShowAndSave Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

Methods

compare :: MsgClassShowAndSave -> MsgClassShowAndSave -> Ordering #

(<) :: MsgClassShowAndSave -> MsgClassShowAndSave -> Bool #

(<=) :: MsgClassShowAndSave -> MsgClassShowAndSave -> Bool #

(>) :: MsgClassShowAndSave -> MsgClassShowAndSave -> Bool #

(>=) :: MsgClassShowAndSave -> MsgClassShowAndSave -> Bool #

max :: MsgClassShowAndSave -> MsgClassShowAndSave -> MsgClassShowAndSave #

min :: MsgClassShowAndSave -> MsgClassShowAndSave -> MsgClassShowAndSave #

type Rep MsgClassShowAndSave Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

type Rep MsgClassShowAndSave = D1 ('MetaData "MsgClassShowAndSave" "Game.LambdaHack.Client.UI.Msg" "LambdaHack-0.11.0.1-BLuOaw8nuizISmzkanqI8h" 'False) (((((C1 ('MetaCons "MsgBookKeeping" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "MsgStatusWakeup" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "MsgStatusStopUs" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "MsgStatusStopThem" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "MsgItemCreation" 'PrefixI 'False) (U1 :: Type -> Type)))) :+: ((C1 ('MetaCons "MsgItemRuination" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "MsgDeathVictory" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "MsgDeathDeafeat" 'PrefixI 'False) (U1 :: Type -> Type))) :+: (C1 ('MetaCons "MsgDeathBoring" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "MsgRiskOfDeath" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "MsgPointmanSwap" 'PrefixI 'False) (U1 :: Type -> Type))))) :+: (((C1 ('MetaCons "MsgFactionIntel" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "MsgFinalOutcome" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "MsgBackdropInfo" 'PrefixI 'False) (U1 :: Type -> Type))) :+: (C1 ('MetaCons "MsgTerrainReveal" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "MsgItemDiscovery" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "MsgSpottedActor" 'PrefixI 'False) (U1 :: Type -> Type)))) :+: ((C1 ('MetaCons "MsgItemMovement" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "MsgActionMajor" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "MsgActionMinor" 'PrefixI 'False) (U1 :: Type -> Type))) :+: (C1 ('MetaCons "MsgEffectMajor" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "MsgEffectMedium" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "MsgEffectMinor" 'PrefixI 'False) (U1 :: Type -> Type)))))) :+: ((((C1 ('MetaCons "MsgMiscellanous" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "MsgHeardOutside" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "MsgHeardNearby" 'PrefixI 'False) (U1 :: Type -> Type))) :+: (C1 ('MetaCons "MsgHeardFaraway" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "MsgBackdropFocus" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "MsgActionWarning" 'PrefixI 'False) (U1 :: Type -> Type)))) :+: ((C1 ('MetaCons "MsgRangedMightyWe" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "MsgRangedMightyUs" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "MsgRangedOthers" 'PrefixI 'False) (U1 :: Type -> Type))) :+: (C1 ('MetaCons "MsgRangedNormalUs" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "MsgGoodMiscEvent" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "MsgBadMiscEvent" 'PrefixI 'False) (U1 :: Type -> Type))))) :+: (((C1 ('MetaCons "MsgNeutralEvent" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "MsgSpecialEvent" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "MsgMeleeMightyWe" 'PrefixI 'False) (U1 :: Type -> Type))) :+: (C1 ('MetaCons "MsgMeleeMightyUs" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "MsgMeleeComplexWe" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "MsgMeleeComplexUs" 'PrefixI 'False) (U1 :: Type -> Type)))) :+: ((C1 ('MetaCons "MsgMeleeOthers" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "MsgMeleeNormalUs" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "MsgActionComplete" 'PrefixI 'False) (U1 :: Type -> Type))) :+: (C1 ('MetaCons "MsgAtFeetMajor" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "MsgAtFeetMinor" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "MsgTutorialHint" 'PrefixI 'False) (U1 :: Type -> Type)))))))

data MsgClassShow Source #

Constructors

MsgPromptGeneric 
MsgPromptFocus 
MsgPromptMention 
MsgPromptModify 
MsgPromptActors 
MsgPromptItems 
MsgPromptAction 
MsgActionAlert 
MsgSpottedThreat 

Instances

Instances details
MsgShared MsgClassShow Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

Methods

toMsgShared :: [(String, Color)] -> MsgClassShow -> Text -> Msg Source #

Binary MsgClassShow Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

Methods

put :: MsgClassShow -> Put

get :: Get MsgClassShow

putList :: [MsgClassShow] -> Put

Bounded MsgClassShow Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

Methods

minBound :: MsgClassShow #

maxBound :: MsgClassShow #

Enum MsgClassShow Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

Methods

succ :: MsgClassShow -> MsgClassShow #

pred :: MsgClassShow -> MsgClassShow #

toEnum :: Int -> MsgClassShow #

fromEnum :: MsgClassShow -> Int #

enumFrom :: MsgClassShow -> [MsgClassShow] #

enumFromThen :: MsgClassShow -> MsgClassShow -> [MsgClassShow] #

enumFromTo :: MsgClassShow -> MsgClassShow -> [MsgClassShow] #

enumFromThenTo :: MsgClassShow -> MsgClassShow -> MsgClassShow -> [MsgClassShow] #

Generic MsgClassShow Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

Associated Types

type Rep MsgClassShow 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

type Rep MsgClassShow = D1 ('MetaData "MsgClassShow" "Game.LambdaHack.Client.UI.Msg" "LambdaHack-0.11.0.1-BLuOaw8nuizISmzkanqI8h" 'False) (((C1 ('MetaCons "MsgPromptGeneric" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "MsgPromptFocus" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "MsgPromptMention" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "MsgPromptModify" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "MsgPromptActors" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "MsgPromptItems" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "MsgPromptAction" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "MsgActionAlert" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "MsgSpottedThreat" 'PrefixI 'False) (U1 :: Type -> Type)))))

Methods

from :: MsgClassShow -> Rep MsgClassShow x

to :: Rep MsgClassShow x -> MsgClassShow

Show MsgClassShow Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

Methods

showsPrec :: Int -> MsgClassShow -> ShowS #

show :: MsgClassShow -> String #

showList :: [MsgClassShow] -> ShowS #

Eq MsgClassShow Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

Methods

(==) :: MsgClassShow -> MsgClassShow -> Bool #

(/=) :: MsgClassShow -> MsgClassShow -> Bool #

Ord MsgClassShow Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

Methods

compare :: MsgClassShow -> MsgClassShow -> Ordering #

(<) :: MsgClassShow -> MsgClassShow -> Bool #

(<=) :: MsgClassShow -> MsgClassShow -> Bool #

(>) :: MsgClassShow -> MsgClassShow -> Bool #

(>=) :: MsgClassShow -> MsgClassShow -> Bool #

max :: MsgClassShow -> MsgClassShow -> MsgClassShow #

min :: MsgClassShow -> MsgClassShow -> MsgClassShow #

type Rep MsgClassShow Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

type Rep MsgClassShow = D1 ('MetaData "MsgClassShow" "Game.LambdaHack.Client.UI.Msg" "LambdaHack-0.11.0.1-BLuOaw8nuizISmzkanqI8h" 'False) (((C1 ('MetaCons "MsgPromptGeneric" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "MsgPromptFocus" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "MsgPromptMention" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "MsgPromptModify" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "MsgPromptActors" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "MsgPromptItems" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "MsgPromptAction" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "MsgActionAlert" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "MsgSpottedThreat" 'PrefixI 'False) (U1 :: Type -> Type)))))

data MsgClassSave Source #

Constructors

MsgInnerWorkSpam 
MsgNumericReport 

Instances

Instances details
MsgShared MsgClassSave Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

Methods

toMsgShared :: [(String, Color)] -> MsgClassSave -> Text -> Msg Source #

Binary MsgClassSave Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

Methods

put :: MsgClassSave -> Put

get :: Get MsgClassSave

putList :: [MsgClassSave] -> Put

Bounded MsgClassSave Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

Methods

minBound :: MsgClassSave #

maxBound :: MsgClassSave #

Enum MsgClassSave Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

Methods

succ :: MsgClassSave -> MsgClassSave #

pred :: MsgClassSave -> MsgClassSave #

toEnum :: Int -> MsgClassSave #

fromEnum :: MsgClassSave -> Int #

enumFrom :: MsgClassSave -> [MsgClassSave] #

enumFromThen :: MsgClassSave -> MsgClassSave -> [MsgClassSave] #

enumFromTo :: MsgClassSave -> MsgClassSave -> [MsgClassSave] #

enumFromThenTo :: MsgClassSave -> MsgClassSave -> MsgClassSave -> [MsgClassSave] #

Generic MsgClassSave Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

Associated Types

type Rep MsgClassSave 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

type Rep MsgClassSave = D1 ('MetaData "MsgClassSave" "Game.LambdaHack.Client.UI.Msg" "LambdaHack-0.11.0.1-BLuOaw8nuizISmzkanqI8h" 'False) (C1 ('MetaCons "MsgInnerWorkSpam" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "MsgNumericReport" 'PrefixI 'False) (U1 :: Type -> Type))

Methods

from :: MsgClassSave -> Rep MsgClassSave x

to :: Rep MsgClassSave x -> MsgClassSave

Show MsgClassSave Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

Methods

showsPrec :: Int -> MsgClassSave -> ShowS #

show :: MsgClassSave -> String #

showList :: [MsgClassSave] -> ShowS #

Eq MsgClassSave Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

Methods

(==) :: MsgClassSave -> MsgClassSave -> Bool #

(/=) :: MsgClassSave -> MsgClassSave -> Bool #

Ord MsgClassSave Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

Methods

compare :: MsgClassSave -> MsgClassSave -> Ordering #

(<) :: MsgClassSave -> MsgClassSave -> Bool #

(<=) :: MsgClassSave -> MsgClassSave -> Bool #

(>) :: MsgClassSave -> MsgClassSave -> Bool #

(>=) :: MsgClassSave -> MsgClassSave -> Bool #

max :: MsgClassSave -> MsgClassSave -> MsgClassSave #

min :: MsgClassSave -> MsgClassSave -> MsgClassSave #

type Rep MsgClassSave Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

type Rep MsgClassSave = D1 ('MetaData "MsgClassSave" "Game.LambdaHack.Client.UI.Msg" "LambdaHack-0.11.0.1-BLuOaw8nuizISmzkanqI8h" 'False) (C1 ('MetaCons "MsgInnerWorkSpam" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "MsgNumericReport" 'PrefixI 'False) (U1 :: Type -> Type))

data MsgClassIgnore Source #

Constructors

MsgMacroOperation 
MsgRunStopReason 
MsgStopPlayback 

Instances

Instances details
MsgShared MsgClassIgnore Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

Methods

toMsgShared :: [(String, Color)] -> MsgClassIgnore -> Text -> Msg Source #

Binary MsgClassIgnore Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

Methods

put :: MsgClassIgnore -> Put

get :: Get MsgClassIgnore

putList :: [MsgClassIgnore] -> Put

Bounded MsgClassIgnore Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

Methods

minBound :: MsgClassIgnore #

maxBound :: MsgClassIgnore #

Enum MsgClassIgnore Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

Methods

succ :: MsgClassIgnore -> MsgClassIgnore #

pred :: MsgClassIgnore -> MsgClassIgnore #

toEnum :: Int -> MsgClassIgnore #

fromEnum :: MsgClassIgnore -> Int #

enumFrom :: MsgClassIgnore -> [MsgClassIgnore] #

enumFromThen :: MsgClassIgnore -> MsgClassIgnore -> [MsgClassIgnore] #

enumFromTo :: MsgClassIgnore -> MsgClassIgnore -> [MsgClassIgnore] #

enumFromThenTo :: MsgClassIgnore -> MsgClassIgnore -> MsgClassIgnore -> [MsgClassIgnore] #

Generic MsgClassIgnore Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

Associated Types

type Rep MsgClassIgnore 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

type Rep MsgClassIgnore = D1 ('MetaData "MsgClassIgnore" "Game.LambdaHack.Client.UI.Msg" "LambdaHack-0.11.0.1-BLuOaw8nuizISmzkanqI8h" 'False) (C1 ('MetaCons "MsgMacroOperation" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "MsgRunStopReason" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "MsgStopPlayback" 'PrefixI 'False) (U1 :: Type -> Type)))

Methods

from :: MsgClassIgnore -> Rep MsgClassIgnore x

to :: Rep MsgClassIgnore x -> MsgClassIgnore

Show MsgClassIgnore Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

Methods

showsPrec :: Int -> MsgClassIgnore -> ShowS #

show :: MsgClassIgnore -> String #

showList :: [MsgClassIgnore] -> ShowS #

Eq MsgClassIgnore Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

Methods

(==) :: MsgClassIgnore -> MsgClassIgnore -> Bool #

(/=) :: MsgClassIgnore -> MsgClassIgnore -> Bool #

Ord MsgClassIgnore Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

Methods

compare :: MsgClassIgnore -> MsgClassIgnore -> Ordering #

(<) :: MsgClassIgnore -> MsgClassIgnore -> Bool #

(<=) :: MsgClassIgnore -> MsgClassIgnore -> Bool #

(>) :: MsgClassIgnore -> MsgClassIgnore -> Bool #

(>=) :: MsgClassIgnore -> MsgClassIgnore -> Bool #

max :: MsgClassIgnore -> MsgClassIgnore -> MsgClassIgnore #

min :: MsgClassIgnore -> MsgClassIgnore -> MsgClassIgnore #

type Rep MsgClassIgnore Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

type Rep MsgClassIgnore = D1 ('MetaData "MsgClassIgnore" "Game.LambdaHack.Client.UI.Msg" "LambdaHack-0.11.0.1-BLuOaw8nuizISmzkanqI8h" 'False) (C1 ('MetaCons "MsgMacroOperation" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "MsgRunStopReason" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "MsgStopPlayback" 'PrefixI 'False) (U1 :: Type -> Type)))

data MsgClassDistinct Source #

Constructors

MsgSpottedItem 
MsgStatusSleep 
MsgStatusGoodUs 
MsgStatusBadUs 
MsgStatusOthers 
MsgStatusBenign 
MsgStatusWarning 
MsgStatusLongerUs 
MsgStatusLongThem 

Instances

Instances details
Binary MsgClassDistinct Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

Methods

put :: MsgClassDistinct -> Put

get :: Get MsgClassDistinct

putList :: [MsgClassDistinct] -> Put

Bounded MsgClassDistinct Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

Methods

minBound :: MsgClassDistinct #

maxBound :: MsgClassDistinct #

Enum MsgClassDistinct Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

Methods

succ :: MsgClassDistinct -> MsgClassDistinct #

pred :: MsgClassDistinct -> MsgClassDistinct #

toEnum :: Int -> MsgClassDistinct #

fromEnum :: MsgClassDistinct -> Int #

enumFrom :: MsgClassDistinct -> [MsgClassDistinct] #

enumFromThen :: MsgClassDistinct -> MsgClassDistinct -> [MsgClassDistinct] #

enumFromTo :: MsgClassDistinct -> MsgClassDistinct -> [MsgClassDistinct] #

enumFromThenTo :: MsgClassDistinct -> MsgClassDistinct -> MsgClassDistinct -> [MsgClassDistinct] #

Generic MsgClassDistinct Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

Associated Types

type Rep MsgClassDistinct 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

type Rep MsgClassDistinct = D1 ('MetaData "MsgClassDistinct" "Game.LambdaHack.Client.UI.Msg" "LambdaHack-0.11.0.1-BLuOaw8nuizISmzkanqI8h" 'False) (((C1 ('MetaCons "MsgSpottedItem" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "MsgStatusSleep" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "MsgStatusGoodUs" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "MsgStatusBadUs" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "MsgStatusOthers" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "MsgStatusBenign" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "MsgStatusWarning" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "MsgStatusLongerUs" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "MsgStatusLongThem" 'PrefixI 'False) (U1 :: Type -> Type)))))

Methods

from :: MsgClassDistinct -> Rep MsgClassDistinct x

to :: Rep MsgClassDistinct x -> MsgClassDistinct

Show MsgClassDistinct Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

Methods

showsPrec :: Int -> MsgClassDistinct -> ShowS #

show :: MsgClassDistinct -> String #

showList :: [MsgClassDistinct] -> ShowS #

Eq MsgClassDistinct Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

Methods

(==) :: MsgClassDistinct -> MsgClassDistinct -> Bool #

(/=) :: MsgClassDistinct -> MsgClassDistinct -> Bool #

Ord MsgClassDistinct Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

Methods

compare :: MsgClassDistinct -> MsgClassDistinct -> Ordering #

(<) :: MsgClassDistinct -> MsgClassDistinct -> Bool #

(<=) :: MsgClassDistinct -> MsgClassDistinct -> Bool #

(>) :: MsgClassDistinct -> MsgClassDistinct -> Bool #

(>=) :: MsgClassDistinct -> MsgClassDistinct -> Bool #

max :: MsgClassDistinct -> MsgClassDistinct -> MsgClassDistinct #

min :: MsgClassDistinct -> MsgClassDistinct -> MsgClassDistinct #

type Rep MsgClassDistinct Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

type Rep MsgClassDistinct = D1 ('MetaData "MsgClassDistinct" "Game.LambdaHack.Client.UI.Msg" "LambdaHack-0.11.0.1-BLuOaw8nuizISmzkanqI8h" 'False) (((C1 ('MetaCons "MsgSpottedItem" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "MsgStatusSleep" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "MsgStatusGoodUs" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "MsgStatusBadUs" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "MsgStatusOthers" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "MsgStatusBenign" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "MsgStatusWarning" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "MsgStatusLongerUs" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "MsgStatusLongThem" 'PrefixI 'False) (U1 :: Type -> Type)))))

data MsgClass Source #

Instances

Instances details
Binary MsgClass Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

Methods

put :: MsgClass -> Put

get :: Get MsgClass

putList :: [MsgClass] -> Put

Generic MsgClass Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

Associated Types

type Rep MsgClass 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

type Rep MsgClass = D1 ('MetaData "MsgClass" "Game.LambdaHack.Client.UI.Msg" "LambdaHack-0.11.0.1-BLuOaw8nuizISmzkanqI8h" 'False) ((C1 ('MetaCons "MsgClassShowAndSave" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 MsgClassShowAndSave)) :+: C1 ('MetaCons "MsgClassShow" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 MsgClassShow))) :+: (C1 ('MetaCons "MsgClassSave" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 MsgClassSave)) :+: (C1 ('MetaCons "MsgClassIgnore" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 MsgClassIgnore)) :+: C1 ('MetaCons "MsgClassDistinct" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 MsgClassDistinct)))))

Methods

from :: MsgClass -> Rep MsgClass x

to :: Rep MsgClass x -> MsgClass

Show MsgClass Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

Methods

showsPrec :: Int -> MsgClass -> ShowS #

show :: MsgClass -> String #

showList :: [MsgClass] -> ShowS #

Eq MsgClass Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

Methods

(==) :: MsgClass -> MsgClass -> Bool #

(/=) :: MsgClass -> MsgClass -> Bool #

Ord MsgClass Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

Methods

compare :: MsgClass -> MsgClass -> Ordering #

(<) :: MsgClass -> MsgClass -> Bool #

(<=) :: MsgClass -> MsgClass -> Bool #

(>) :: MsgClass -> MsgClass -> Bool #

(>=) :: MsgClass -> MsgClass -> Bool #

max :: MsgClass -> MsgClass -> MsgClass #

min :: MsgClass -> MsgClass -> MsgClass #

type Rep MsgClass Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

type Rep MsgClass = D1 ('MetaData "MsgClass" "Game.LambdaHack.Client.UI.Msg" "LambdaHack-0.11.0.1-BLuOaw8nuizISmzkanqI8h" 'False) ((C1 ('MetaCons "MsgClassShowAndSave" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 MsgClassShowAndSave)) :+: C1 ('MetaCons "MsgClassShow" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 MsgClassShow))) :+: (C1 ('MetaCons "MsgClassSave" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 MsgClassSave)) :+: (C1 ('MetaCons "MsgClassIgnore" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 MsgClassIgnore)) :+: C1 ('MetaCons "MsgClassDistinct" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 MsgClassDistinct)))))

interruptsRunning :: MsgClass -> Bool Source #

disturbsResting :: MsgClass -> Bool Source #

Report

data Report Source #

The set of messages, with repetitions, to show at the screen at once.

Instances

Instances details
Binary Report Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

Methods

put :: Report -> Put

get :: Get Report

putList :: [Report] -> Put

Show Report Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

Methods

showsPrec :: Int -> Report -> ShowS #

show :: Report -> String #

showList :: [Report] -> ShowS #

nullVisibleReport :: Report -> Bool Source #

Test if the list of non-whitespace messages is empty.

consReport :: Msg -> Report -> Report Source #

Add a message to the start of report.

renderReport :: Bool -> Report -> [AttrString] Source #

Render a report as a (possibly very long) list of AttrString.

anyInReport :: (MsgClass -> Bool) -> Report -> Bool Source #

History

data History Source #

The history of reports. This is a ring buffer of the given length containing old archived history and two most recent reports stored separately.

Instances

Instances details
Binary History Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

Methods

put :: History -> Put

get :: Get History

putList :: [History] -> Put

Generic History Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

Associated Types

type Rep History 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

type Rep History = D1 ('MetaData "History" "Game.LambdaHack.Client.UI.Msg" "LambdaHack-0.11.0.1-BLuOaw8nuizISmzkanqI8h" 'False) (C1 ('MetaCons "History" 'PrefixI 'True) ((S1 ('MetaSel ('Just "newReport") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Report) :*: S1 ('MetaSel ('Just "newTime") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Time)) :*: (S1 ('MetaSel ('Just "oldReport") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Report) :*: (S1 ('MetaSel ('Just "oldTime") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Time) :*: S1 ('MetaSel ('Just "archivedHistory") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 (RingBuffer UAttrString))))))

Methods

from :: History -> Rep History x

to :: Rep History x -> History

Show History Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

Methods

showsPrec :: Int -> History -> ShowS #

show :: History -> String #

showList :: [History] -> ShowS #

type Rep History Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

type Rep History = D1 ('MetaData "History" "Game.LambdaHack.Client.UI.Msg" "LambdaHack-0.11.0.1-BLuOaw8nuizISmzkanqI8h" 'False) (C1 ('MetaCons "History" 'PrefixI 'True) ((S1 ('MetaSel ('Just "newReport") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Report) :*: S1 ('MetaSel ('Just "newTime") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Time)) :*: (S1 ('MetaSel ('Just "oldReport") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Report) :*: (S1 ('MetaSel ('Just "oldTime") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Time) :*: S1 ('MetaSel ('Just "archivedHistory") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 (RingBuffer UAttrString))))))

newReport :: History -> Report Source #

emptyHistory :: Int -> History Source #

Empty history of the given maximal length.

addToReport :: Set Msg -> Bool -> Bool -> History -> Msg -> Time -> (Set Msg, History, Bool) Source #

Add a message to the new report of history, eliminating a possible duplicate and noting its existence in the result.

addEolToNewReport :: History -> History Source #

Add a newline to end of the new report of history, unless empty.

archiveReport :: History -> History Source #

Archive old report to history, filtering out messages with 0 duplicates and prompts. Set up new report with a new timestamp.

lengthHistory :: History -> Int Source #

renderHistory :: History -> [AttrString] Source #

Render history as many lines of text. New report is not rendered. It's expected to be empty when history is shown.

Internal operations

type UAttrString = Vector Word32 Source #

uToAttrString :: UAttrString -> AttrString Source #

attrStringToU :: AttrString -> UAttrString Source #

toMsg :: [(String, Color)] -> MsgPrototype -> Msg Source #

data MsgPrototype Source #

tripleFromProto :: MsgPrototype -> (Text, Text, MsgClass) Source #

scrapsRepeats :: MsgClass -> Bool Source #

isTutorialHint :: MsgClass -> Bool Source #

msgColor :: MsgClass -> Color Source #

data RepMsgNK Source #

Instances

Instances details
Binary RepMsgNK Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

Methods

put :: RepMsgNK -> Put

get :: Get RepMsgNK

putList :: [RepMsgNK] -> Put

Generic RepMsgNK Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

Associated Types

type Rep RepMsgNK 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

type Rep RepMsgNK = D1 ('MetaData "RepMsgNK" "Game.LambdaHack.Client.UI.Msg" "LambdaHack-0.11.0.1-BLuOaw8nuizISmzkanqI8h" 'False) (C1 ('MetaCons "RepMsgNK" 'PrefixI 'True) (S1 ('MetaSel ('Just "repMsg") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Msg) :*: (S1 ('MetaSel ('Just "_repShow") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Int) :*: S1 ('MetaSel ('Just "_repSave") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Int))))

Methods

from :: RepMsgNK -> Rep RepMsgNK x

to :: Rep RepMsgNK x -> RepMsgNK

Show RepMsgNK Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

Methods

showsPrec :: Int -> RepMsgNK -> ShowS #

show :: RepMsgNK -> String #

showList :: [RepMsgNK] -> ShowS #

type Rep RepMsgNK Source # 
Instance details

Defined in Game.LambdaHack.Client.UI.Msg

type Rep RepMsgNK = D1 ('MetaData "RepMsgNK" "Game.LambdaHack.Client.UI.Msg" "LambdaHack-0.11.0.1-BLuOaw8nuizISmzkanqI8h" 'False) (C1 ('MetaCons "RepMsgNK" 'PrefixI 'True) (S1 ('MetaSel ('Just "repMsg") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Msg) :*: (S1 ('MetaSel ('Just "_repShow") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Int) :*: S1 ('MetaSel ('Just "_repSave") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Int))))

nullRepMsgNK :: RepMsgNK -> Bool Source #

If only one of the message components is non-empty and non-whitespace, but its count is zero, the message is considered empty.

emptyReport :: Report Source #

Empty set of messages.

renderRepetition :: (AttrString, Int) -> AttrString Source #

scrapRepetitionSingle :: (AttrString, Int) -> [(AttrString, Int)] -> [(AttrString, Int)] -> (Bool, [(AttrString, Int)], [(AttrString, Int)]) Source #

scrapRepetition :: History -> Maybe History Source #

renderTimeReport :: Time -> Report -> [AttrString] Source #