From 6a201b3ebc80c5df9a6db1e4a3bb3f72636e09ca Mon Sep 17 00:00:00 2001
From: arthur <arthur@L-1H84301WQ8.dom1.vinci-energies.net>
Date: Mon, 3 Nov 2025 16:05:25 +0100
Subject: [PATCH] delete line macro

---
 config/init.lisp   | 2 +-
 include/builtins.h | 1 +
 src/builtins.c     | 7 +++++++
 src/init.c         | 1 +
 4 files changed, 10 insertions(+), 1 deletion(-)

diff --git a/config/init.lisp b/config/init.lisp
index 3f11aa5..ff3bcf9 100644
--- a/config/init.lisp
+++ b/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)
 
 
diff --git a/include/builtins.h b/include/builtins.h
index d94867a..b6cc0a1 100644
--- a/include/builtins.h
+++ b/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
diff --git a/src/builtins.c b/src/builtins.c
index 47a52f7..c20abaf 100644
--- a/src/builtins.c
+++ b/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();
+}
+
diff --git a/src/init.c b/src/init.c
index 561c79e..9e07fc0 100644
--- a/src/init.c
+++ b/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() {