Arthur Barraux
158 lines
3.6 KiB
C
158 lines
3.6 KiB
C
#include "../include/builtins.h"
|
|
#include "../include/define.h"
|
|
#include "../include/input.h"
|
|
#include "../include/file_io.h"
|
|
#include "../include/editor_op.h"
|
|
#include "../include/data.h"
|
|
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
|
|
Lisp mapKey(Lisp args, LispError *e, LispContext ctx) {
|
|
const char *key_sequence = lisp_string(lisp_car(args));
|
|
args = lisp_cdr(args);
|
|
// second argument
|
|
Lisp func = lisp_car(args);
|
|
|
|
E.key_binds =
|
|
(struct keyBind_t *)realloc(E.key_binds, ++E.number_of_keybinds * sizeof(struct keyBind_t));
|
|
E.key_binds[E.number_of_keybinds - 1].key_sequence = (char *) malloc(50 * sizeof(char));
|
|
|
|
strncpy(E.key_binds[E.number_of_keybinds - 1].key_sequence, key_sequence, 50);
|
|
|
|
E.key_binds[E.number_of_keybinds - 1].command = func;
|
|
|
|
return lisp_null();
|
|
}
|
|
|
|
Lisp moveCursor(Lisp args, LispError *e, LispContext ctx) {
|
|
const char *direction = lisp_string(lisp_car(args));
|
|
switch (direction[0]) {
|
|
case 'u':
|
|
editorMoveCursor(ARROW_UP);
|
|
break;
|
|
case 'd':
|
|
editorMoveCursor(ARROW_DOWN);
|
|
break;
|
|
case 'r':
|
|
editorMoveCursor(ARROW_RIGHT);
|
|
break;
|
|
case 'l':
|
|
editorMoveCursor(ARROW_LEFT);
|
|
break;
|
|
}
|
|
|
|
|
|
return lisp_null();
|
|
}
|
|
|
|
Lisp editorQuit(Lisp args, LispError* e, LispContext ctx) {
|
|
if (E.dirty && E.quit_times_buffer > 0) {
|
|
editorSetStatusMessage("WARNING! Changes hasn't been saved. Press Ctrl-Q "
|
|
"another time to quit.");
|
|
--E.quit_times_buffer;
|
|
return lisp_null();
|
|
}
|
|
write(STDOUT_FILENO, "\x1b[2J", 4);
|
|
write(STDOUT_FILENO, CURSOR_TOP_LEFT, 3);
|
|
disableRawMode();
|
|
exit(0);
|
|
|
|
return lisp_null();
|
|
|
|
|
|
}
|
|
|
|
|
|
Lisp l_editorSave(Lisp args, LispError* e, LispContext ctx) {
|
|
|
|
editorSave();
|
|
|
|
return lisp_null();
|
|
|
|
|
|
}
|
|
|
|
Lisp l_editorInsertNewLine(Lisp args, LispError* e, LispContext ctx) {
|
|
|
|
editorInsertNewLine();
|
|
|
|
return lisp_null();
|
|
|
|
|
|
}
|
|
|
|
Lisp moveCursorBeginLine(Lisp args, LispError *e, LispContext ctx) {
|
|
E.cursor_x = 0;
|
|
return lisp_null();
|
|
}
|
|
|
|
Lisp moveCursorEndLine(Lisp args, LispError* e, LispContext ctx) {
|
|
if (E.cursor_y < E.numrows) {
|
|
E.cursor_x = E.row[E.cursor_y].size;
|
|
}
|
|
return lisp_null();
|
|
}
|
|
|
|
|
|
Lisp deletePreviousChar(Lisp args, LispError* e, LispContext ctx) {
|
|
editorDelChar();
|
|
return lisp_null();
|
|
}
|
|
|
|
Lisp editorMoveCursorPageUp(Lisp args, LispError* e, LispContext ctx) {
|
|
E.cursor_y = E.row_offset;
|
|
int times = E.screenrows;
|
|
while (--times) {
|
|
editorMoveCursor(ARROW_UP);
|
|
}
|
|
return lisp_null();
|
|
}
|
|
|
|
Lisp editorMoveCursorPageDown(Lisp args, LispError* e, LispContext ctx) {
|
|
E.cursor_y = E.row_offset + E.screenrows - 1;
|
|
if (E.cursor_y > E.numrows) {
|
|
E.cursor_y = E.numrows;
|
|
}
|
|
int times = E.screenrows;
|
|
while (--times) {
|
|
editorMoveCursor(ARROW_DOWN);
|
|
}
|
|
|
|
return lisp_null();
|
|
}
|
|
|
|
Lisp editorOpenFile(Lisp args, LispError *e, LispContext ctx) {
|
|
char *filename = editorPrompt("Path : %s");
|
|
if (filename)
|
|
editorOpen(filename);
|
|
|
|
return lisp_null();
|
|
}
|
|
|
|
|
|
Lisp editorPrintC(Lisp args, LispError *e, LispContext ctx) {
|
|
char c = lisp_string(lisp_car(args))[0];
|
|
editorInsertChar(c);
|
|
return lisp_null();
|
|
}
|
|
|
|
Lisp addPackage(Lisp args, LispError *e, LispContext ctx) {
|
|
const char *package_name = lisp_string(lisp_car(args));
|
|
char *package_dir = (char *) calloc(256, sizeof(char));
|
|
FILE *fd_package = NULL;
|
|
strcat(package_dir, getenv("HOME"));
|
|
strcat(package_dir, "/.beluga/packages/");
|
|
strcat(package_dir, package_name);
|
|
strcat(package_dir, "/init.lisp");
|
|
fd_package = fopen(package_dir, "r");
|
|
lisp_eval(lisp_read_file(fd_package, &E.ctx_error, E.ctx), &E.ctx_error,
|
|
E.ctx);
|
|
fclose(fd_package);
|
|
free(package_dir);
|
|
|
|
return lisp_null();
|
|
|
|
}
|