diff options
| author | Griffin Smith <root@gws.fyi> | 2019-09-02T14·54-0400 |
|---|---|---|
| committer | Griffin Smith <root@gws.fyi> | 2019-09-02T14·54-0400 |
| commit | 243104c410da7e2064972b98cda757558b4e3913 (patch) | |
| tree | 34ae01cad756a75ad5848980c121966ad2a7db49 /src/Xanthous/Command.hs | |
| parent | 18551cdf30c0a13bce40fae9be829e5318612e71 (diff) | |
Add commands for diagonal movement
That Was Easy (tm)!
Diffstat (limited to 'src/Xanthous/Command.hs')
| -rw-r--r-- | src/Xanthous/Command.hs | 4 |
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 |