Add commands for diagonal movement
That Was Easy (tm)!
This commit is contained in:
parent
18551cdf30
commit
243104c410
1 changed files with 4 additions and 0 deletions
|
@ -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
|
||||
|
||||
|
|
Loading…
Reference in a new issue