mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add commands for diagonal movement

Browse source 
That Was Easy (tm)!
This commit is contained in:
Griffin Smith 2019-09-02 10:54:52 -04:00
parent 18551cdf30
commit 243104c410
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Xanthous/Command.hs
View file

@ -17,6 +17,10 @@ commandFromKey (KChar 'h') [] = Just $ Move Left
commandFromKey (KChar 'j') [] = Just $ Move Down commandFromKey (KChar 'j') [] = Just $ Move Down
commandFromKey (KChar 'k') [] = Just $ Move Up commandFromKey (KChar 'k') [] = Just $ Move Up
commandFromKey (KChar 'l') [] = Just $ Move Right 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 commandFromKey (KChar 'p') [MCtrl] = Just PreviousMessage