From 243104c410da7e2064972b98cda757558b4e3913 Mon Sep 17 00:00:00 2001 From: Griffin Smith Date: Mon, 2 Sep 2019 10:54:52 -0400 Subject: Add commands for diagonal movement That Was Easy (tm)! --- src/Xanthous/Command.hs | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/src/Xanthous/Command.hs b/src/Xanthous/Command.hs index 10fa552b342f..ee9a7ad50dd2 100644 --- a/src/Xanthous/Command.hs +++ b/src/Xanthous/Command.hs @@ -17,6 +17,10 @@ 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 'y') [] = Just $ Move UpLeft +commandFromKey (KChar 'u') [] = Just $ Move UpRight +commandFromKey (KChar 'b') [] = Just $ Move DownLeft +commandFromKey (KChar 'n') [] = Just $ Move DownRight commandFromKey (KChar 'p') [MCtrl] = Just PreviousMessage -- cgit 1.4.1