From eee88df4bc3dacee8d1431b9848106f02fb4d8a7 Mon Sep 17 00:00:00 2001 From: Juliana Rat Date: Sun, 5 Nov 2023 18:56:53 -0500 Subject: [PATCH] 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 :'( --- sloth/editor.scm | 12 ++++++------ zhu-li | 7 ------- 2 files changed, 6 insertions(+), 13 deletions(-) delete mode 100755 zhu-li diff --git a/sloth/editor.scm b/sloth/editor.scm index ec9d47d..50dae05 100644 --- a/sloth/editor.scm +++ b/sloth/editor.scm @@ -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)) diff --git a/zhu-li b/zhu-li deleted file mode 100755 index c95dc4a..0000000 --- a/zhu-li +++ /dev/null @@ -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