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

Okay we're officially gonna use spaces now

Browse source
This commit is contained in:
Skylar 2023-11-04 09:29:18 -05:00
parent 878eadd075
commit 213552d0fc
2 changed files with 21 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
scripts/sloth.in
View file

@ -11,12 +11,12 @@
;;; Code:
(use-modules (config)
(config api)
(config licenses)
(config parser sexp)
(sloth editor)
(sloth interface)
(ncurses curses))
(config api)
(config licenses)
(config parser sexp)
(sloth editor)
(sloth interface)
(ncurses curses))
;; Commandline handling
@ -29,14 +29,14 @@
(license @LICENSE@)
(synopsis "Text editor based on tree-sitter")
(description
"TODO")
"TODO")
(arguments
(list
(argument (name 'file)
(default "")
(test string?)
(synopsis "The file to open")
(example "./file.txt"))))
(list
(argument (name 'file)
(default "")
(test string?)
(synopsis "The file to open")
(example "./file.txt"))))
(directory (in-home ".config/"))
(parser simple-sexp-parser)
(generate-cmdtree? #t)))

16
sloth/editor.scm
View file

@ -10,19 +10,19 @@
(define ch (getch win))
(cond
((eqv? ch KEY_BACKSPACE)
(delch win #:y y #:x (- x 1)))
(delch win #:y y #:x (- x 1)))
((eqv? ch KEY_DC)
(delch win))
(delch win))
((eqv? ch KEY_LEFT)
(move win y (- x 1)))
(move win y (- x 1)))
((eqv? ch KEY_RIGHT)
(move win y (+ x 1)))
(move win y (+ x 1)))
((eqv? ch KEY_UP)
(move win (- y 1) x))
(move win (- y 1) x))
((eqv? ch KEY_DOWN)
(move win (+ y 1) x))
(move win (+ y 1) x))
((eqv? ch #\q)
(endwin)
(quit))
(endwin)
(quit))
(else (echochar win (normal ch))))
(core-loop win))