arthur/beluga
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases 7 Wiki Activity

Adding usefull keybinds
Build and Deploy Docs / build (push) Successful in 50s
Details

Browse Source
This commit is contained in:
Arthur Barraux
2025-10-02 14:59:28 +02:00
parent 3b6c60a49e
commit 9157b94398
6 changed files with 78 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/init.c
+4 -3
View File
@@ -26,8 +26,9 @@ void initBuiltins() {
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);
}
void initEditor() {
@@ -50,7 +51,7 @@ void initEditor() {
E.number_of_keybinds = 0;
E.fd_init_file = fopen("config/init.el", "r");
E.fd_init_file = fopen("config/init.lisp", "r");
E.ctx = lisp_init();
E.env = lisp_env(E.ctx);
lisp_lib_load(E.ctx);