diff options
Diffstat (limited to 'okur.lisp')
| -rw-r--r-- | okur.lisp | 13 |
1 files changed, 7 insertions, 6 deletions
@@ -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")) |