simyager/html-jen
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

yeni blok TODO

Browse Source
This commit is contained in:
riton
2025-03-25 00:54:02 +03:00
parent 614566488b
commit 030b33e850
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
okur.lisp
View File

@@ -48,11 +48,13 @@
(unless (son? okur (blok-son okur)) (unless (son? okur (blok-son okur))
(with-slots (i uzunluk metin blok-son blok-baş) okur (with-slots (i uzunluk metin blok-son blok-baş) okur
(let ((önceki-son blok-son) (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) (setf blok-son (if (numberp yeni-son)
(+ 2 yeni-son) (+ 2 yeni-son)
uzunluk) uzunluk)
blok-baş önceki-son blok-baş önceki-son ;; TODO blok başındaki boşluk ve yeni satırları geç
i blok-baş)))))) i blok-baş))))))
(defmethod boşluk-yut ((okur okur)) (defmethod boşluk-yut ((okur okur))