link href içinde, metin bedende olmalı

1 files 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"))