Cleanup
* sloth/editor.scm: Fix indentation to match new .dir-locals.el * zhu-li: Delete. She did the thing and now she is no longer needed :'(
This commit is contained in:
parent
b27cfd7bc3
commit
eee88df4bc
|
@ -55,22 +55,22 @@
|
||||||
(define x (getcurx win))
|
(define x (getcurx win))
|
||||||
(cond
|
(cond
|
||||||
((or (eqv? key KEY_LEFT)
|
((or (eqv? key KEY_LEFT)
|
||||||
(eqv? key #\h))
|
(eqv? key #\h))
|
||||||
(move-cursor state y (- x 1)))
|
(move-cursor state y (- x 1)))
|
||||||
((or (eqv? key KEY_RIGHT)
|
((or (eqv? key KEY_RIGHT)
|
||||||
(eqv? key #\l))
|
(eqv? key #\l))
|
||||||
(move-cursor state y (+ x 1)))
|
(move-cursor state y (+ x 1)))
|
||||||
((or (eqv? key KEY_UP)
|
((or (eqv? key KEY_UP)
|
||||||
(eqv? key #\k))
|
(eqv? key #\k))
|
||||||
(move-cursor state (- y 1) x))
|
(move-cursor state (- y 1) x))
|
||||||
((or (eqv? key KEY_DOWN)
|
((or (eqv? key KEY_DOWN)
|
||||||
(eqv? key #\j))
|
(eqv? key #\j))
|
||||||
(move-cursor state (+ y 1) x))
|
(move-cursor state (+ y 1) x))
|
||||||
((eqv? key #\n) (next-node state))
|
((eqv? key #\n) (next-node state))
|
||||||
((eqv? key #\d) (down-node state))
|
((eqv? key #\d) (down-node state))
|
||||||
((eqv? key #\p) (prev-node state))
|
((eqv? key #\p) (prev-node state))
|
||||||
((eqv? key #\u) (up-node state))
|
((eqv? key #\u) (up-node state))
|
||||||
((eqv? key #\i) (set-sloth-state-mode state 'insert-mode))
|
((eqv? key #\i) (set-sloth-state-mode state 'insert-mode))
|
||||||
((eqv? key #\q)
|
((eqv? key #\q)
|
||||||
(endwin)
|
(endwin)
|
||||||
(quit))
|
(quit))
|
||||||
|
@ -81,7 +81,7 @@
|
||||||
(define contents "")
|
(define contents "")
|
||||||
(when (file-exists? file)
|
(when (file-exists? file)
|
||||||
(set! contents
|
(set! contents
|
||||||
(call-with-input-file file get-string-all))
|
(call-with-input-file file get-string-all))
|
||||||
(addstr win contents)
|
(addstr win contents)
|
||||||
(refresh win)
|
(refresh win)
|
||||||
(move win 0 0))
|
(move win 0 0))
|
||||||
|
|
Loading…
Reference in New Issue