delete line macro

config/init.lisp

@@ -29,6 +29,6 @@
 (map-key "PAGE-UP" move-cursor-page-up)
 (map-key "PAGE-DOWN" move-cursor-page-down)
 (map-key "CTRL-o" editor-open-file)
-
+(map-key "CTRL-k" editor-del-row)
 
 

include/builtins.h

@@ -31,4 +31,5 @@ Lisp editorPrintC(Lisp args, LispError *e, LispContext ctx);
 
 Lisp addPackage(Lisp args, LispError *e, LispContext ctx);
 
+Lisp editorDelRow_L(Lisp args, LispError *e, LispContext ctx);
 #endif

src/builtins.c

@@ -3,6 +3,7 @@
 #include "../include/input.h"
 #include "../include/file_io.h"
 #include "../include/editor_op.h"
+#include "../include/row_op.h"
 #include "../include/data.h"
 
 #include <stdio.h>
@@ -155,3 +156,9 @@ Lisp addPackage(Lisp args, LispError *e, LispContext ctx) {
   return lisp_null();
   
 }
+
+Lisp editorDelRow_L(Lisp args, LispError *e, LispContext ctx) {
+  editorDelRow(E.cursor_y);
+  return lisp_null();
+}
+

src/init.c

@@ -32,6 +32,7 @@ void initBuiltins() {
   registerBuiltin("EDITOR-OPEN-FILE", editorOpenFile);
   registerBuiltin("EDITOR-INSERT-CHAR", editorPrintC);
   registerBuiltin("ADD-PACKAGE", addPackage);
+  registerBuiltin("EDITOR-DEL-ROW", editorDelRow_L);
 }
 
 void initEditor() {