Game.LambdaHack.Client.UI.Msg

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

Msg

data Msg

The type of a single game message.

Instances

Generic Msg

Defined in Game.LambdaHack.Client.UI.Msg

Associated Types

type Rep Msg :: Type -> Type

Methods

from :: Msg -> Rep Msg x

to :: Rep Msg x -> Msg

Show Msg

Defined in Game.LambdaHack.Client.UI.Msg

Methods

showsPrec :: Int -> Msg -> ShowS

show :: Msg -> String

showList :: [Msg] -> ShowS

Binary Msg

Defined in Game.LambdaHack.Client.UI.Msg

Methods

put :: Msg -> Put

get :: Get Msg

putList :: [Msg] -> Put

Eq Msg

Defined in Game.LambdaHack.Client.UI.Msg

Methods

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

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

Ord Msg

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

Defined in Game.LambdaHack.Client.UI.Msg

type Rep Msg = D1 ('MetaData "Msg" "Game.LambdaHack.Client.UI.Msg" "LambdaHack-0.11.0.1-inplace" '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

Minimal complete definition

toMsgShared

Instances

MsgShared MsgClassIgnore

Defined in Game.LambdaHack.Client.UI.Msg

Methods

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

MsgShared MsgClassSave

Defined in Game.LambdaHack.Client.UI.Msg

Methods

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

MsgShared MsgClassShow

Defined in Game.LambdaHack.Client.UI.Msg

Methods

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

MsgShared MsgClassShowAndSave

Defined in Game.LambdaHack.Client.UI.Msg

Methods

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

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

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

data MsgClassShowAndSave

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

MsgShared MsgClassShowAndSave

Defined in Game.LambdaHack.Client.UI.Msg

Methods

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

Bounded MsgClassShowAndSave

Defined in Game.LambdaHack.Client.UI.Msg

Methods

minBound :: MsgClassShowAndSave

maxBound :: MsgClassShowAndSave

Enum MsgClassShowAndSave

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

Defined in Game.LambdaHack.Client.UI.Msg

Associated Types

type Rep MsgClassShowAndSave :: Type -> Type

Methods

from :: MsgClassShowAndSave -> Rep MsgClassShowAndSave x

to :: Rep MsgClassShowAndSave x -> MsgClassShowAndSave

Show MsgClassShowAndSave

Defined in Game.LambdaHack.Client.UI.Msg

Methods

showsPrec :: Int -> MsgClassShowAndSave -> ShowS

show :: MsgClassShowAndSave -> String

showList :: [MsgClassShowAndSave] -> ShowS

Binary MsgClassShowAndSave

Defined in Game.LambdaHack.Client.UI.Msg

Methods

put :: MsgClassShowAndSave -> Put

get :: Get MsgClassShowAndSave

putList :: [MsgClassShowAndSave] -> Put

Eq MsgClassShowAndSave

Defined in Game.LambdaHack.Client.UI.Msg

Methods

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

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

Ord MsgClassShowAndSave

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

Defined in Game.LambdaHack.Client.UI.Msg

type Rep MsgClassShowAndSave = D1 ('MetaData "MsgClassShowAndSave" "Game.LambdaHack.Client.UI.Msg" "LambdaHack-0.11.0.1-inplace" '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

Constructors

MsgPromptGeneric

MsgPromptFocus

MsgPromptMention

MsgPromptModify

MsgPromptActors

MsgPromptItems

MsgPromptAction

MsgActionAlert

MsgSpottedThreat

Instances

MsgShared MsgClassShow

Defined in Game.LambdaHack.Client.UI.Msg

Methods

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

Bounded MsgClassShow

Defined in Game.LambdaHack.Client.UI.Msg

Methods

minBound :: MsgClassShow

maxBound :: MsgClassShow

Enum MsgClassShow

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

Defined in Game.LambdaHack.Client.UI.Msg

Associated Types

type Rep MsgClassShow :: Type -> Type

Methods

from :: MsgClassShow -> Rep MsgClassShow x

to :: Rep MsgClassShow x -> MsgClassShow

Show MsgClassShow

Defined in Game.LambdaHack.Client.UI.Msg

Methods

showsPrec :: Int -> MsgClassShow -> ShowS

show :: MsgClassShow -> String

showList :: [MsgClassShow] -> ShowS

Binary MsgClassShow

Defined in Game.LambdaHack.Client.UI.Msg

Methods

put :: MsgClassShow -> Put

get :: Get MsgClassShow

putList :: [MsgClassShow] -> Put

Eq MsgClassShow

Defined in Game.LambdaHack.Client.UI.Msg

Methods

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

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

Ord MsgClassShow

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

Defined in Game.LambdaHack.Client.UI.Msg

type Rep MsgClassShow = D1 ('MetaData "MsgClassShow" "Game.LambdaHack.Client.UI.Msg" "LambdaHack-0.11.0.1-inplace" '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

Constructors

MsgInnerWorkSpam

MsgNumericReport

Instances

MsgShared MsgClassSave

Defined in Game.LambdaHack.Client.UI.Msg

Methods

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

Bounded MsgClassSave

Defined in Game.LambdaHack.Client.UI.Msg

Methods

minBound :: MsgClassSave

maxBound :: MsgClassSave

Enum MsgClassSave

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

Defined in Game.LambdaHack.Client.UI.Msg

Associated Types

type Rep MsgClassSave :: Type -> Type

Methods

from :: MsgClassSave -> Rep MsgClassSave x

to :: Rep MsgClassSave x -> MsgClassSave

Show MsgClassSave

Defined in Game.LambdaHack.Client.UI.Msg

Methods

showsPrec :: Int -> MsgClassSave -> ShowS

show :: MsgClassSave -> String

showList :: [MsgClassSave] -> ShowS

Binary MsgClassSave

Defined in Game.LambdaHack.Client.UI.Msg

Methods

put :: MsgClassSave -> Put

get :: Get MsgClassSave

putList :: [MsgClassSave] -> Put

Eq MsgClassSave

Defined in Game.LambdaHack.Client.UI.Msg

Methods

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

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

Ord MsgClassSave

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

Defined in Game.LambdaHack.Client.UI.Msg

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

data MsgClassIgnore

Constructors

MsgMacroOperation

MsgRunStopReason

MsgStopPlayback

Instances

MsgShared MsgClassIgnore

Defined in Game.LambdaHack.Client.UI.Msg

Methods

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

Bounded MsgClassIgnore

Defined in Game.LambdaHack.Client.UI.Msg

Methods

minBound :: MsgClassIgnore

maxBound :: MsgClassIgnore

Enum MsgClassIgnore

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

Defined in Game.LambdaHack.Client.UI.Msg

Associated Types

type Rep MsgClassIgnore :: Type -> Type

Methods

from :: MsgClassIgnore -> Rep MsgClassIgnore x

to :: Rep MsgClassIgnore x -> MsgClassIgnore

Show MsgClassIgnore

Defined in Game.LambdaHack.Client.UI.Msg

Methods

showsPrec :: Int -> MsgClassIgnore -> ShowS

show :: MsgClassIgnore -> String

showList :: [MsgClassIgnore] -> ShowS

Binary MsgClassIgnore

Defined in Game.LambdaHack.Client.UI.Msg

Methods

put :: MsgClassIgnore -> Put

get :: Get MsgClassIgnore

putList :: [MsgClassIgnore] -> Put

Eq MsgClassIgnore

Defined in Game.LambdaHack.Client.UI.Msg

Methods

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

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

Ord MsgClassIgnore

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

Defined in Game.LambdaHack.Client.UI.Msg

type Rep MsgClassIgnore = D1 ('MetaData "MsgClassIgnore" "Game.LambdaHack.Client.UI.Msg" "LambdaHack-0.11.0.1-inplace" '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

Constructors

MsgSpottedItem

MsgStatusSleep

MsgStatusGoodUs

MsgStatusBadUs

MsgStatusOthers

MsgStatusBenign

MsgStatusWarning

MsgStatusLongerUs

MsgStatusLongThem

Instances

Bounded MsgClassDistinct

Defined in Game.LambdaHack.Client.UI.Msg

Methods

minBound :: MsgClassDistinct

maxBound :: MsgClassDistinct

Enum MsgClassDistinct

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

Defined in Game.LambdaHack.Client.UI.Msg

Associated Types

type Rep MsgClassDistinct :: Type -> Type

Methods

from :: MsgClassDistinct -> Rep MsgClassDistinct x

to :: Rep MsgClassDistinct x -> MsgClassDistinct

Show MsgClassDistinct

Defined in Game.LambdaHack.Client.UI.Msg

Methods

showsPrec :: Int -> MsgClassDistinct -> ShowS

show :: MsgClassDistinct -> String

showList :: [MsgClassDistinct] -> ShowS

Binary MsgClassDistinct

Defined in Game.LambdaHack.Client.UI.Msg

Methods

put :: MsgClassDistinct -> Put

get :: Get MsgClassDistinct

putList :: [MsgClassDistinct] -> Put

Eq MsgClassDistinct

Defined in Game.LambdaHack.Client.UI.Msg

Methods

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

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

Ord MsgClassDistinct

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

Defined in Game.LambdaHack.Client.UI.Msg

type Rep MsgClassDistinct = D1 ('MetaData "MsgClassDistinct" "Game.LambdaHack.Client.UI.Msg" "LambdaHack-0.11.0.1-inplace" '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

Instances

Generic MsgClass

Defined in Game.LambdaHack.Client.UI.Msg

Associated Types

type Rep MsgClass :: Type -> Type

Methods

from :: MsgClass -> Rep MsgClass x

to :: Rep MsgClass x -> MsgClass

Show MsgClass

Defined in Game.LambdaHack.Client.UI.Msg

Methods

showsPrec :: Int -> MsgClass -> ShowS

show :: MsgClass -> String

showList :: [MsgClass] -> ShowS

Binary MsgClass

Defined in Game.LambdaHack.Client.UI.Msg

Methods

put :: MsgClass -> Put

get :: Get MsgClass

putList :: [MsgClass] -> Put

Eq MsgClass

Defined in Game.LambdaHack.Client.UI.Msg

Methods

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

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

Ord MsgClass

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

Defined in Game.LambdaHack.Client.UI.Msg

type Rep MsgClass = D1 ('MetaData "MsgClass" "Game.LambdaHack.Client.UI.Msg" "LambdaHack-0.11.0.1-inplace" '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

disturbsResting :: MsgClass -> Bool

Report

data Report

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

Instances

Show Report

Defined in Game.LambdaHack.Client.UI.Msg

Methods

showsPrec :: Int -> Report -> ShowS

show :: Report -> String

showList :: [Report] -> ShowS

Binary Report

Defined in Game.LambdaHack.Client.UI.Msg

Methods

put :: Report -> Put

get :: Get Report

putList :: [Report] -> Put

nullVisibleReport :: Report -> Bool

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

consReport :: Msg -> Report -> Report

Add a message to the start of report.

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

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

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

History

data History

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

Generic History

Defined in Game.LambdaHack.Client.UI.Msg

Associated Types

type Rep History :: Type -> Type

Methods

from :: History -> Rep History x

to :: Rep History x -> History

Show History

Defined in Game.LambdaHack.Client.UI.Msg

Methods

showsPrec :: Int -> History -> ShowS

show :: History -> String

showList :: [History] -> ShowS

Binary History

Defined in Game.LambdaHack.Client.UI.Msg

Methods

put :: History -> Put

get :: Get History

putList :: [History] -> Put

type Rep History

Defined in Game.LambdaHack.Client.UI.Msg

type Rep History = D1 ('MetaData "History" "Game.LambdaHack.Client.UI.Msg" "LambdaHack-0.11.0.1-inplace" '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

emptyHistory :: Int -> History

Empty history of the given maximal length.

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

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

addEolToNewReport :: History -> History

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

archiveReport :: History -> History

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

lengthHistory :: History -> Int

renderHistory :: History -> [AttrString]

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

uToAttrString :: UAttrString -> AttrString

attrStringToU :: AttrString -> UAttrString

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

data MsgPrototype

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

scrapsRepeats :: MsgClass -> Bool

isTutorialHint :: MsgClass -> Bool

msgColor :: MsgClass -> Color

data RepMsgNK

Instances

Generic RepMsgNK

Defined in Game.LambdaHack.Client.UI.Msg

Associated Types

type Rep RepMsgNK :: Type -> Type

Methods

from :: RepMsgNK -> Rep RepMsgNK x

to :: Rep RepMsgNK x -> RepMsgNK

Show RepMsgNK

Defined in Game.LambdaHack.Client.UI.Msg

Methods

showsPrec :: Int -> RepMsgNK -> ShowS

show :: RepMsgNK -> String

showList :: [RepMsgNK] -> ShowS

Binary RepMsgNK

Defined in Game.LambdaHack.Client.UI.Msg

Methods

put :: RepMsgNK -> Put

get :: Get RepMsgNK

putList :: [RepMsgNK] -> Put

type Rep RepMsgNK

Defined in Game.LambdaHack.Client.UI.Msg

type Rep RepMsgNK = D1 ('MetaData "RepMsgNK" "Game.LambdaHack.Client.UI.Msg" "LambdaHack-0.11.0.1-inplace" '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

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

Empty set of messages.

renderRepetition :: (AttrString, Int) -> AttrString

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

scrapRepetition :: History -> Maybe History

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