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/Command.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'src/Xanthous/Command.hs') diff --git a/src/Xanthous/Command.hs b/src/Xanthous/Command.hs index 50fe4abb4561..10fa552b342f 100644 --- a/src/Xanthous/Command.hs +++ b/src/Xanthous/Command.hs @@ -8,8 +8,8 @@ import Xanthous.Data (Direction(..)) data Command = Quit | Move Direction - | PickUp | PreviousMessage + -- | PickUp commandFromKey :: Key -> [Modifier] -> Maybe Command commandFromKey (KChar 'q') [] = Just Quit @@ -17,4 +17,7 @@ commandFromKey (KChar 'h') [] = Just $ Move Left commandFromKey (KChar 'j') [] = Just $ Move Down commandFromKey (KChar 'k') [] = Just $ Move Up commandFromKey (KChar 'l') [] = Just $ Move Right + +commandFromKey (KChar 'p') [MCtrl] = Just PreviousMessage + commandFromKey _ _ = Nothing -- cgit 1.4.1