* 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:
Juliana Rat 2023-11-05 18:56:53 -05:00
parent b27cfd7bc3
commit eee88df4bc
2 changed files with 6 additions and 13 deletions

View file

@ -55,22 +55,22 @@
(define x (getcurx win))
(cond
((or (eqv? key KEY_LEFT)
(eqv? key #\h))
(eqv? key #\h))
(move-cursor state y (- x 1)))
((or (eqv? key KEY_RIGHT)
(eqv? key #\l))
(eqv? key #\l))
(move-cursor state y (+ x 1)))
((or (eqv? key KEY_UP)
(eqv? key #\k))
(eqv? key #\k))
(move-cursor state (- y 1) x))
((or (eqv? key KEY_DOWN)
(eqv? key #\j))
(eqv? key #\j))
(move-cursor state (+ y 1) x))
((eqv? key #\n) (next-node state))
((eqv? key #\d) (down-node state))
((eqv? key #\p) (prev-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)
(endwin)
(quit))
@ -81,7 +81,7 @@
(define contents "")
(when (file-exists? file)
(set! contents
(call-with-input-file file get-string-all))
(call-with-input-file file get-string-all))
(addstr win contents)
(refresh win)
(move win 0 0))

7
zhu-li
View file

@ -1,7 +0,0 @@
#!/bin/sh
# does the thing (build Sloth)
hall build -x
hall dist -x
guix shell -D -f guix.scm -- autoreconf -vif && ./configure && make