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

Eq Msg

Defined in Game.LambdaHack.Client.UI.Msg

Methods

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

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

Show Msg

Defined in Game.LambdaHack.Client.UI.Msg

Methods

showsPrec :: Int -> Msg -> ShowS

show :: Msg -> String

showList :: [Msg] -> ShowS

Generic Msg

Defined in Game.LambdaHack.Client.UI.Msg

Associated Types

type Rep Msg :: * -> *

Methods

from :: Msg -> Rep Msg x

to :: Rep Msg x -> Msg

Binary Msg

Defined in Game.LambdaHack.Client.UI.Msg

Methods

put :: Msg -> Put

get :: Get Msg

putList :: [Msg] -> Put

type Rep Msg

Defined in Game.LambdaHack.Client.UI.Msg

type Rep Msg = D1 (MetaData "Msg" "Game.LambdaHack.Client.UI.Msg" "LambdaHack-0.8.1.2-9Fmfvbfsr9xEInnejydwaW" False) (C1 (MetaCons "Msg" PrefixI True) (S1 (MetaSel (Just "msgLine") NoSourceUnpackedness NoSourceStrictness DecidedStrict) (Rec0 AttrLine) :*: S1 (MetaSel (Just "msgHist") NoSourceUnpackedness NoSourceStrictness DecidedStrict) (Rec0 Bool)))

toMsg :: AttrLine -> Msg

toPrompt :: AttrLine -> Msg

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

nullReport :: Report -> Bool

Test if the set of messages is empty.

consReport :: Msg -> Report -> Report

Add a message to the start of report.

renderReport :: Report -> AttrLine

Render a report as a (possibly very long) AttrLine.

findInReport :: (AttrLine -> Bool) -> Report -> Maybe Msg

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

Show History

Defined in Game.LambdaHack.Client.UI.Msg

Methods

showsPrec :: Int -> History -> ShowS

show :: History -> String

showList :: [History] -> ShowS

Generic History

Defined in Game.LambdaHack.Client.UI.Msg

Associated Types

type Rep History :: * -> *

Methods

from :: History -> Rep History x

to :: Rep History x -> History

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.8.1.2-9Fmfvbfsr9xEInnejydwaW" 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 UAttrLine))))))

newReport :: History -> Report

emptyHistory :: Int -> History

Empty history of the given maximal length.

addToReport :: History -> Msg -> Int -> (History, Bool)

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

archiveReport :: History -> Time -> History

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

lengthHistory :: History -> Int

renderHistory :: History -> [AttrLine]

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 UAttrLine = Vector Word32

data RepMsgN

Instances

Show RepMsgN

Defined in Game.LambdaHack.Client.UI.Msg

Methods

showsPrec :: Int -> RepMsgN -> ShowS

show :: RepMsgN -> String

showList :: [RepMsgN] -> ShowS

Generic RepMsgN

Defined in Game.LambdaHack.Client.UI.Msg

Associated Types

type Rep RepMsgN :: * -> *

Methods

from :: RepMsgN -> Rep RepMsgN x

to :: Rep RepMsgN x -> RepMsgN

Binary RepMsgN

Defined in Game.LambdaHack.Client.UI.Msg

Methods

put :: RepMsgN -> Put

get :: Get RepMsgN

putList :: [RepMsgN] -> Put

type Rep RepMsgN

Defined in Game.LambdaHack.Client.UI.Msg

type Rep RepMsgN = D1 (MetaData "RepMsgN" "Game.LambdaHack.Client.UI.Msg" "LambdaHack-0.8.1.2-9Fmfvbfsr9xEInnejydwaW" False) (C1 (MetaCons "RepMsgN" PrefixI True) (S1 (MetaSel (Just "repMsg") NoSourceUnpackedness NoSourceStrictness DecidedStrict) (Rec0 Msg) :*: S1 (MetaSel (Just "_repN") NoSourceUnpackedness NoSourceStrictness DecidedStrict) (Rec0 Int)))

uToAttrLine :: UAttrLine -> AttrLine

attrLineToU :: AttrLine -> UAttrLine

emptyReport :: Report

Empty set of messages.

snocReport :: Report -> Msg -> Int -> Report

Add a message to the end of the report.

renderRepetition :: RepMsgN -> AttrLine

scrapRepetition :: History -> Maybe History

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