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

link href içinde, metin bedende olmalı

Browse Source
This commit is contained in:
riton
2025-03-23 22:20:51 +03:00
parent d6bc48718d
commit 0cd4282f0e
1 changed files with 7 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
okur.lisp
View File

@@ -159,8 +159,8 @@
(let ((son (search ")" metin (let ((son (search ")" metin
:start2 i :start2 i
:end2 blok-son))) :end2 blok-son)))
(prog1 (çocuk-node! :a (metin-parçası okur (- son i) i) (prog1 (çocuk-node! :a link-metni
(list :href link-metni)) (list :href (metin-parçası okur (- son i) i)))
(setf i (+ 1 son))))))) (setf i (+ 1 son)))))))
(defmethod paragraf-ayrıştır ((okur okur)) (defmethod paragraf-ayrıştır ((okur okur))
@@ -204,11 +204,12 @@
(ayrıştır okur :ol) (ayrıştır okur :ol)
(paragraf-ayrıştır okur))))))) (paragraf-ayrıştır okur)))))))
(defmethod tümünü-ayrıştır ((okur okur)) (defmethod markdown-ayrıştır ((okur okur))
(let ((blok-node (blok-ayrıştır okur))) (let ((blok-node (blok-ayrıştır okur)))
(ebeveyn-node! :div
(if (null blok-node) (if (null blok-node)
nil nil
(cons blok-node (tümünü-ayrıştır okur))))) (cons blok-node (tümünü-ayrıştır okur))))))
(defparameter *okur* (okur! "/home/riton/projects/html-jen/cheat.md")) (defparameter *okur* (okur! "/home/riton/projects/html-jen/cheat.md"))