Patch path complete and read char lisp function

include/builtins.h

@@ -35,4 +35,6 @@ Lisp editorDelRow_L(Lisp args, LispError *e, LispContext ctx);
 
 Lisp editorFind_L(Lisp args, LispError *e, LispContext ctx);
 
+Lisp editorReadChar_L(Lisp args, LispError *e, LispContext ctx);
+
 #endif

src/builtins.c

@@ -166,3 +166,9 @@ Lisp editorFind_L(Lisp args, LispError *e, LispContext ctx) {
 	editorFind();
 	return lisp_null();
 }
+
+Lisp editorReadChar_L(Lisp args, LispError *e, LispContext ctx) {
+	fprintf(stderr, "char read : %c\n", E.row[E.cursor_y].render[E.cursor_x]);
+	return lisp_make_char(E.row[E.cursor_y].render[E.cursor_x]);
+}
+

src/init.c

@@ -34,6 +34,7 @@ void initBuiltins() {
   registerBuiltin("ADD-PACKAGE", addPackage);
   registerBuiltin("EDITOR-DEL-ROW", editorDelRow_L);
 	registerBuiltin("EDITOR-FIND", editorFind_L);
+	registerBuiltin("EDITOR-READ-CHAR", editorReadChar_L);
 }
 
 void initEditor() {

src/input.c

@@ -18,7 +18,11 @@ char * file_completion(const char *path) {
 	struct dirent *entry;
 	char directory[128];
 	char predict[128];
-	size_t predict_len;
+	int predict_len = 0;
+
+  if (path[strlen(path) - 1] == '/') {
+    return path;
+  }
 
 	// Find dir name
 	char * last_slash = strrchr(path, '/');
@@ -28,12 +32,13 @@ char * file_completion(const char *path) {
 		predict_len = strlen(path) - dir_len - 1;
 		strncpy(predict, last_slash + 1, predict_len);
 		directory[dir_len] = '\0';
-		fprintf(stderr, "%s %s\n", directory, predict);
 		predict[predict_len] = '\0';
+		fprintf(stderr, "%s %s\n", directory, predict);
 	} else {
 		return NULL;
 	}
 
+
   dir = opendir(directory);
   if (!dir)
   	return NULL;