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

Methods

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

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

Show Msg

Methods

showsPrec :: Int -> Msg -> ShowS

show :: Msg -> String

showList :: [Msg] -> ShowS

Generic Msg

Associated Types

type Rep Msg :: * -> *

Methods

from :: Msg -> Rep Msg x

to :: Rep Msg x -> Msg

Binary Msg

Methods

put :: Msg -> Put

get :: Get Msg

putList :: [Msg] -> Put

type Rep Msg

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

toMsg :: AttrLine -> Msg

toPrompt :: AttrLine -> Msg

Report

data RepMsgN

Instances

Show RepMsgN

Methods

showsPrec :: Int -> RepMsgN -> ShowS

show :: RepMsgN -> String

showList :: [RepMsgN] -> ShowS

Generic RepMsgN

Associated Types

type Rep RepMsgN :: * -> *

Methods

from :: RepMsgN -> Rep RepMsgN x

to :: Rep RepMsgN x -> RepMsgN

Binary RepMsgN

Methods

put :: RepMsgN -> Put

get :: Get RepMsgN

putList :: [RepMsgN] -> Put

type Rep RepMsgN

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

data Report

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

Instances

Show Report

Methods

showsPrec :: Int -> Report -> ShowS

show :: Report -> String

showList :: [Report] -> ShowS

Binary Report

Methods

put :: Report -> Put

get :: Get Report

putList :: [Report] -> Put

emptyReport :: Report

Empty set of messages.

nullReport :: Report -> Bool

Test if the set of messages is empty.

singletonReport :: Msg -> Report

Construct a singleton set of messages.

snocReport :: Report -> Msg -> Report

Add a message to the end of report. Deletes old prompt messages.

consReportNoScrub :: Msg -> Report -> Report

Add a message to the end of report. Does not delete old prompt messages nor handle repetitions.

renderReport :: Report -> AttrLine

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

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

incrementInReport :: (AttrLine -> Bool) -> Report -> Maybe Report

lastMsgOfReport :: Report -> (AttrLine, Report)

History

data History

The history of reports. This is a ring buffer of the given length

Instances

Show History

Methods

showsPrec :: Int -> History -> ShowS

show :: History -> String

showList :: [History] -> ShowS

Generic History

Associated Types

type Rep History :: * -> *

Methods

from :: History -> Rep History x

to :: Rep History x -> History

Binary History

Methods

put :: History -> Put

get :: Get History

putList :: [History] -> Put

type Rep History

type Rep History = D1 * (MetaData "History" "Game.LambdaHack.Client.UI.Msg" "LambdaHack-0.7.0.0-3XPyz9bw1i28qJIoWU6CaM" False) (C1 * (MetaCons "History" PrefixI False) ((:*:) * (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedStrict) (Rec0 * Time)) ((:*:) * (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedStrict) (Rec0 * Report)) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedStrict) (Rec0 * (RingBuffer UAttrLine))))))

emptyHistory :: Int -> History

Empty history of reports of the given maximal length.

addReport :: History -> Time -> Report -> History

Add a report to history, handling repetitions.

lengthHistory :: History -> Int

lastReportOfHistory :: History -> Report

replaceLastReportOfHistory :: Report -> History -> History

splitReportForHistory :: X -> AttrLine -> [AttrLine]

renderHistory :: History -> [AttrLine]

Render history as many lines of text, wrapping if necessary.

Internal operations

type UAttrLine = Vector Word32

uToAttrLine :: UAttrLine -> AttrLine

attrLineToU :: AttrLine -> UAttrLine

renderRepetition :: RepMsgN -> AttrLine

renderTimeReport :: Time -> Report -> AttrLine