From 030b33e8506be54f1faf9d0391a3b80ac129e13b Mon Sep 17 00:00:00 2001
From: riton <riton@riton.home>
Date: Tue, 25 Mar 2025 00:54:02 +0300
Subject: yeni blok TODO

---
 okur.lisp | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/okur.lisp b/okur.lisp
index 67af1a2..759ac16 100644
--- a/okur.lisp
+++ b/okur.lisp
@@ -48,11 +48,13 @@
     (unless (son? okur (blok-son okur))
       (with-slots (i uzunluk metin blok-son blok-baş) okur
         (let ((önceki-son blok-son)
-              (yeni-son (search blok-sonu metin :start2 blok-son)))
+              (yeni-son (search blok-sonu metin :start2 blok-son))
+              ;; TODO kod bloğunun içinde yeni blok oluşmadan 2 yeni satır olabilir
+              )
           (setf blok-son (if (numberp yeni-son)
                              (+ 2 yeni-son)
                              uzunluk)
-                blok-baş önceki-son
+                blok-baş önceki-son ;; TODO blok başındaki boşluk ve yeni satırları geç
                 i blok-baş))))))
 
 (defmethod boşluk-yut ((okur okur))
-- 
cgit v1.2.3