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

dipnot listesi paragraf içinde olmamalı

Browse Source
This commit is contained in:
riton
2025-04-01 03:13:56 +03:00
parent e9c7be84dc
commit 1e26cd3056
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/okur.lisp
View File

@@ -268,10 +268,10 @@
:finally (loop :while (char= #\Newline (char metin (- i 1))) :finally (loop :while (char= #\Newline (char metin (- i 1)))
:do (decf i)) :do (decf i))
(when (/= baş i) (when (/= baş i)
(push (metin-parçası okur (- i baş) baş) elementler)) (push (metin-parçası okur (- i baş) baş) elementler)))
(when (not (null dipnotlar)) (if (not (null dipnotlar))
(push (ebeveyn-node! :ol (reverse dipnotlar)) elementler))) (ebeveyn-node! :ol (reverse dipnotlar))
(ebeveyn-node! :p (reverse elementler)))))) (ebeveyn-node! :p (reverse elementler)))))))
(defmethod blok-ayrıştır ((okur okur)) (defmethod blok-ayrıştır ((okur okur))
(when (sonraki-blok okur) (when (sonraki-blok okur)