From 0cd4282f0e885d201f516febbbe73abe31327086 Mon Sep 17 00:00:00 2001 From: riton Date: Sun, 23 Mar 2025 22:20:51 +0300 Subject: =?UTF-8?q?link=20href=20i=C3=A7inde,=20metin=20bedende=20olmal?= =?UTF-8?q?=C4=B1?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- okur.lisp | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/okur.lisp b/okur.lisp index 7daf658..639e780 100644 --- a/okur.lisp +++ b/okur.lisp @@ -159,8 +159,8 @@ (let ((son (search ")" metin :start2 i :end2 blok-son))) - (prog1 (çocuk-node! :a (metin-parçası okur (- son i) i) - (list :href link-metni)) + (prog1 (çocuk-node! :a link-metni + (list :href (metin-parçası okur (- son i) i))) (setf i (+ 1 son))))))) (defmethod paragraf-ayrıştır ((okur okur)) @@ -204,11 +204,12 @@ (ayrıştır okur :ol) (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))) - (if (null blok-node) - nil - (cons blok-node (tümünü-ayrıştır okur))))) + (ebeveyn-node! :div + (if (null blok-node) + nil + (cons blok-node (tümünü-ayrıştır okur)))))) (defparameter *okur* (okur! "/home/riton/projects/html-jen/cheat.md")) -- cgit v1.2.3