about summary refs log tree commit diff
path: root/src/Xanthous/Command.hs
diff options
context:
space:
mode:
authorGriffin Smith <root@gws.fyi>2019-09-02T14·54-0400
committerGriffin Smith <root@gws.fyi>2019-09-02T14·54-0400
commit243104c410da7e2064972b98cda757558b4e3913 (patch)
tree34ae01cad756a75ad5848980c121966ad2a7db49 /src/Xanthous/Command.hs
parent18551cdf30c0a13bce40fae9be829e5318612e71 (diff)
Add commands for diagonal movement
That Was Easy (tm)!
Diffstat (limited to 'src/Xanthous/Command.hs')
-rw-r--r--src/Xanthous/Command.hs4
1 files changed, 4 insertions, 0 deletions
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