Sloth
/
sloth
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add vim movement keys 

Some indentation weirdness also got caught up in this, not sure what that's about...
This commit is contained in:
Juliana Rat 2023-11-04 15:30:04 -04:00 committed by Skylar Hill
parent 4a7dee2f9e
commit 3f7684fb13
1 changed files with 21 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
sloth/editor.scm
View File

@ -44,13 +44,17 @@
(define y (getcury win))
(define x (getcurx win))
(cond
((eqv? key KEY_LEFT)
((or (eqv? key KEY_LEFT)
(eqv? key #\h))
(move win y (- x 1)))
((eqv? key KEY_RIGHT)
((or (eqv? key KEY_RIGHT)
(eqv? key #\l))
(move win y (+ x 1)))
((eqv? key KEY_UP)
((or (eqv? key KEY_UP)
(eqv? key #\k))
(move win (- y 1) x))
((eqv? key KEY_DOWN)
((or (eqv? key KEY_DOWN)
(eqv? key #\j))
(move win (+ y 1) x))
((eqv? key #\i) 'insert-mode)
((eqv? key #\q)