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

feat(gs/xanthous): Allow moving with the arrow keys

Browse source 
some... *ahem*... very insistent people have been asking for this,
despite the fact that it doesn't allow for diagonal movement.

Change-Id: Ic58e2435b34e27e3ed399c7b8f3bcbc1f634f6b3
Reviewed-on: https://cl.tvl.fyi/c/depot/+/3870
Reviewed-by: grfn <grfn@gws.fyi>
Tested-by: BuildkiteCI
This commit is contained in:
Griffin Smith 2021-11-13 10:50:00 -05:00 committed by grfn
parent 8d82bf2d36
commit 608e6e778e
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
users/grfn/xanthous/src/Xanthous/Command.hs
View file

@ -59,6 +59,11 @@ commandFromKey (KChar '<') [] = Just GoUp
commandFromKey (KChar '>') [] = Just GoDown
commandFromKey (KChar 'R') [] = Just Rest
commandFromKey KUp [] = Just $ Move Up
commandFromKey KDown [] = Just $ Move Down
commandFromKey KLeft [] = Just $ Move Left
commandFromKey KRight [] = Just $ Move Right
-- DEBUG COMMANDS --
commandFromKey (KChar 'r') [MMeta] = Just ToggleRevealAll