arthur
92 lines
2.7 KiB
C
92 lines
2.7 KiB
C
#include "../include/init.h"
|
|
#include "../include/data.h"
|
|
#include "../include/terminal.h"
|
|
#include "../include/builtins.h"
|
|
#include <stdio.h>
|
|
|
|
#define LISP_IMPLEMENTATION
|
|
#include "../include/lisp.h"
|
|
#include "../include/lisp_lib.h"
|
|
|
|
extern struct editorConfig;
|
|
|
|
|
|
void registerBuiltin(char *key_sequence, LispCFunc f) {
|
|
lisp_env_define(E.ctx.p->env, lisp_make_symbol(key_sequence, E.ctx),
|
|
lisp_make_func(f), E.ctx);
|
|
|
|
}
|
|
|
|
void initBuiltins() {
|
|
// move cursor
|
|
registerBuiltin("MOVE-CURSOR", moveCursor);
|
|
registerBuiltin("MAP-KEY", mapKey);
|
|
registerBuiltin("EDITOR-QUIT", editorQuit);
|
|
registerBuiltin("EDITOR-SAVE", l_editorSave);
|
|
registerBuiltin("EDITOR-INSERT-NEW-LINE", l_editorInsertNewLine);
|
|
registerBuiltin("MOVE-CURSOR-BEG-LINE", moveCursorBeginLine);
|
|
registerBuiltin("MOVE-CURSOR-END-LINE", moveCursorEndLine);
|
|
registerBuiltin("EDITOR-DELETE-PREVIOUS-CHAR", deletePreviousChar);
|
|
registerBuiltin("MOVE-CURSOR-PAGE-UP", editorMoveCursorPageUp);
|
|
registerBuiltin("MOVE-CURSOR-PAGE-DOWN", editorMoveCursorPageDown);
|
|
registerBuiltin("EDITOR-OPEN-FILE", editorOpenFile);
|
|
registerBuiltin("EDITOR-INSERT-CHAR", editorPrintC);
|
|
registerBuiltin("ADD-PACKAGE", addPackage);
|
|
registerBuiltin("EDITOR-DEL-ROW", editorDelRow_L);
|
|
registerBuiltin("EDITOR-FIND", editorFind_L);
|
|
registerBuiltin("EDITOR-READ-CHAR", editorReadChar_L);
|
|
}
|
|
|
|
void initEditor() {
|
|
char * init_file_path = (char *) calloc(256, sizeof(char));
|
|
E.cursor_x = 0;
|
|
E.cursor_y = 0;
|
|
E.rx = 0;
|
|
E.row_offset = 0;
|
|
E.col_offset = 0;
|
|
E.numrows = 0;
|
|
E.row = NULL;
|
|
E.dirty = 0;
|
|
E.filename = NULL;
|
|
E.state = READ_ONLY;
|
|
E.status_msg[0] = '\0';
|
|
E.status_msg_time = 0;
|
|
if (getWindowSize(&E.screenrows, &E.screencols) == -1) {
|
|
die("getWindowSize");
|
|
}
|
|
E.screenrows -= 2;
|
|
|
|
E.number_of_keybinds = 0;
|
|
|
|
strcat(init_file_path, getenv("HOME"));
|
|
strcat(init_file_path, "/.beluga/config/init.lisp");
|
|
printf("%s\n", init_file_path);
|
|
E.fd_init_file = fopen(init_file_path, "r");
|
|
E.ctx = lisp_init();
|
|
E.env = lisp_env(E.ctx);
|
|
lisp_lib_load(E.ctx);
|
|
// Init builtins lisp functions
|
|
initBuiltins();
|
|
|
|
// Read config file
|
|
E.ctx_data = lisp_read_file(E.fd_init_file, &E.ctx_error, E.ctx);
|
|
free(init_file_path);
|
|
if (E.ctx_error != LISP_ERROR_NONE) {
|
|
die("init failed");
|
|
}
|
|
lisp_eval(E.ctx_data, &E.ctx_error, E.ctx);
|
|
|
|
// To modify
|
|
|
|
E.constantes.TAB_LENGTH =
|
|
(int)lisp_eval(lisp_read("TAB-LENGTH", &E.ctx_error, E.ctx), &E.ctx_error,
|
|
E.ctx)
|
|
.val.int_val;
|
|
E.constantes.QUIT_TIMES =
|
|
(int)lisp_eval(lisp_read("QUIT-TIMES", &E.ctx_error, E.ctx), &E.ctx_error,
|
|
E.ctx)
|
|
.val.int_val;
|
|
|
|
E.quit_times_buffer = E.constantes.QUIT_TIMES;
|
|
}
|