Okay we're officially gonna use spaces now

scripts/sloth.in

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

sloth/editor.scm

@@ -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)
+        (endwin)
-	(quit))
+        (quit))
    (else (echochar win (normal ch))))
   (core-loop win))