From 18551cdf30c0a13bce40fae9be829e5318612e71 Mon Sep 17 00:00:00 2001 From: Griffin Smith Date: Mon, 2 Sep 2019 10:36:15 -0400 Subject: Add a previous message command Add a "previous message" command, triggered via ctrl+p. I attempted here to get the message area to still take up a row of space post-hiding the message, but failed - should revisit that at some point --- src/Xanthous/Game/Draw.hs | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'src/Xanthous/Game/Draw.hs') diff --git a/src/Xanthous/Game/Draw.hs b/src/Xanthous/Game/Draw.hs index 5a2f773c1b18..6527af743953 100644 --- a/src/Xanthous/Game/Draw.hs +++ b/src/Xanthous/Game/Draw.hs @@ -26,7 +26,13 @@ import Xanthous.Orphans () drawMessages :: MessageHistory -> Widget Name drawMessages NoMessageHistory = emptyWidget drawMessages (MessageHistory _ False) = emptyWidget -drawMessages (MessageHistory (lastMessage :| _) True) = str $ unpack lastMessage +drawMessages (MessageHistory (lastMessage :| _) True) = txt lastMessage + +-- an attempt to still take up a row even when no messages +-- drawMessages msgs = vLimit 1 . Widget Greedy Fixed . render $ case msgs of +-- NoMessageHistory -> padTop (Pad 2) $ str " " +-- (MessageHistory _ False) -> padTop (Pad 2) $ str " " +-- (MessageHistory (lastMessage :| _) True) -> txt lastMessage drawEntities :: (Draw a, Show a) => EntityMap a -> Widget Name drawEntities em@(fromNullable . positions -> Just entityPositions) -- cgit 1.4.1