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

paragrafın sonundaki yeni satırları alma

Browse Source
This commit is contained in:
riton
2025-03-23 22:38:15 +03:00
parent 0cd4282f0e
commit 041740e761
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
okur.lisp
View File

@@ -187,7 +187,9 @@
(pushla-ve-ayrıştır :b "**") (pushla-ve-ayrıştır :b "**")
(pushla-ve-ayrıştır :i "*"))) (pushla-ve-ayrıştır :i "*")))
(t (incf i))) (t (incf i)))
:finally (when (/= baş i) :finally (loop :while (char= #\Newline (char metin (- i 1)))
:do (decf i))
(when (/= baş i)
(push (metin-parçası okur (- i baş) baş) elementler))) (push (metin-parçası okur (- i baş) baş) elementler)))
(ebeveyn-node! :p (reverse elementler)))))) (ebeveyn-node! :p (reverse elementler))))))