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

code bloğunda baştaki yeni satırı es geç

Browse Source
This commit is contained in:
riton
2025-03-25 00:02:06 +03:00
parent 5cad35b39e
commit 2a6e3969aa
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
okur.lisp
View File

@@ -124,10 +124,10 @@
(defmethod ayrıştır ((okur okur) (tag (eql :code))) (defmethod ayrıştır ((okur okur) (tag (eql :code)))
(with-slots (i metin blok-son blok-baş) okur (with-slots (i metin blok-son blok-baş) okur
(let ((kod-baş (+ blok-baş 3))) (assert (string= "```" metin :start2 blok-baş :end2 (+ blok-baş 3)))
(assert (string= "```" metin :start2 blok-baş :end2 kod-baş)) (let ((kod-baş (+ 1 (position #\Newline metin :start (+ blok-baş 3)))))
(let ((kod (metin-parçası okur (let ((kod (metin-parçası okur
(- (search "```" metin :start2 kod-baş) (- (search "```" metin :from-end t :end2 blok-son)
kod-baş) kod-baş)
kod-baş))) kod-baş)))
(ebeveyn-node! :pre (ebeveyn-node! :pre