1 files changed, 57 insertions, 41 deletions

diff --git a/llm-tools-hl.el b/llm-tools-hl.el
index f4473d3..128a947 100644
--- a/llm-tools-hl.el
+++ b/llm-tools-hl.el
@@ -364,51 +364,67 @@ FILENAME."
           (push (cons (car sec) (list sec)) grouped))))
     grouped))
 
+(defun llm-tools--hl-apply-insert-after (anchor payload content offset)
+  "Insert PAYLOAD after the line identified by ANCHOR (or EOF)."
+  (let* ((line-num (if (string= anchor "EOF")
+                       (length content)
+                     (+ (llm-tools--hl-anchor-to-line-num anchor) offset)))
+         (idx (1- line-num)))
+    (cons (append (cl-subseq content 0 (1+ idx))
+                  payload
+                  (cl-subseq content (1+ idx)))
+          (+ offset (length payload)))))
+
+(defun llm-tools--hl-apply-insert-before (anchor payload content offset)
+  "Insert PAYLOAD before the line identified by ANCHOR (or BOF)."
+  (let* ((line-num (if (string= anchor "BOF") 1
+                     (+ (llm-tools--hl-anchor-to-line-num anchor) offset)))
+         (idx (1- line-num)))
+    (cons (append (cl-subseq content 0 idx)
+                  payload
+                  (cl-subseq content idx))
+          (+ offset (length payload)))))
+
+(defun llm-tools--hl-apply-delete (range content offset)
+  "Delete lines from (car RANGE) to (cadr RANGE)."
+  (let ((a (+ (llm-tools--hl-anchor-to-line-num (car range)) offset))
+        (b (+ (llm-tools--hl-anchor-to-line-num (cadr range)) offset)))
+    (cons (append (cl-subseq content 0 (1- a))
+                  (cl-subseq content b))
+          (- offset (- b a 1)))))
+
+(defun llm-tools--hl-apply-replace (range payload content offset)
+  "Replace lines from (car RANGE) to (cadr RANGE) with PAYLOAD (nil → '(\"\"))"
+  (let ((a (+ (llm-tools--hl-anchor-to-line-num (car range)) offset))
+        (b (+ (llm-tools--hl-anchor-to-line-num (cadr range)) offset))
+        (payload (or payload '(""))))
+    (cons (append (cl-subseq content 0 (1- a))
+                  payload
+                  (cl-subseq content b))
+          (+ offset (- (length payload) (- b a 1))))))
+
 (defun llm-tools--hl-apply-one-op (op content offset)
   "Apply a single OP to CONTENT (list of strings) at the given OFFSET.
 Returns a cons cell (NEW-CONTENT . NEW-OFFSET)."
   (pcase (hl-op-type op)
-    ('insert-after
-     (let* ((anchor (hl-op-anchor op))
-            (payload (hl-op-payload op))
-            (line-num (if (string= anchor "EOF")
-                          (length content)
-                        (+ (llm-tools--hl-anchor-to-line-num anchor)
-                           offset)))
-            (idx (1- line-num)))
-       (cons (append (cl-subseq content 0 (1+ idx))
-                     payload
-                     (cl-subseq content (1+ idx)))
-             (+ offset (length payload)))))
-    ('insert-before
-     (let* ((anchor (hl-op-anchor op))
-            (payload (hl-op-payload op))
-            (line-num (if (string= anchor "BOF")
-                          1
-                        (+ (llm-tools--hl-anchor-to-line-num anchor)
-                           offset)))
-            (idx (1- line-num)))
-       (cons (append (cl-subseq content 0 idx)
-                     payload
-                     (cl-subseq content idx))
-             (+ offset (length payload)))))
-    ('delete
-     (let* ((range (hl-op-range op))
-            (a (+ (llm-tools--hl-anchor-to-line-num (car range)) offset))
-            (b (+ (llm-tools--hl-anchor-to-line-num (cadr range)) offset)))
-       (cons (append (cl-subseq content 0 (1- a))
-                     (cl-subseq content b))
-             (- offset (- b a 1)))))
-    ('replace
-     (let* ((range (hl-op-range op))
-            (a (+ (llm-tools--hl-anchor-to-line-num (car range)) offset))
-            (b (+ (llm-tools--hl-anchor-to-line-num (cadr range)) offset))
-            (payload (or (hl-op-payload op)
-                         '(""))))
-       (cons (append (cl-subseq content 0 (1- a))
-                     payload
-                     (cl-subseq content b))
-             (+ offset (- (length payload) (- b a 1))))))))
+    ('insert-after (llm-tools--hl-apply-insert-after
+                    (hl-op-anchor op)
+                    (hl-op-payload op)
+                    content offset))
+    ('insert-before (llm-tools--hl-apply-insert-before
+                     (hl-op-anchor op)
+                     (hl-op-payload op)
+                     content
+                     offset))
+    ('delete (llm-tools--hl-apply-delete
+              (hl-op-range op)
+              content
+              offset))
+    ('replace (llm-tools--hl-apply-replace
+               (hl-op-range op)
+               (hl-op-payload op)
+               content
+               offset))))
 
 (defun llm-tools--hl-apply-ops (ops content)
   "Apply a list of OPS to CONTENT (list of strings).