From 369f0d67187b3eec068848820d2272bcf45ea0d7 Mon Sep 17 00:00:00 2001 From: riton Date: Mon, 31 Mar 2025 23:52:42 +0300 Subject: =?UTF-8?q?markdownda=20img=20elementinin=20ayr=C4=B1=C5=9Ft=C4=B1?= =?UTF-8?q?r=C4=B1lmas=C4=B1=20(ge=C3=A7ici=20olarak=20b=C3=B6yle)?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/okur.lisp | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/src/okur.lisp b/src/okur.lisp index fe983c5..8b4b902 100644 --- a/src/okur.lisp +++ b/src/okur.lisp @@ -212,6 +212,18 @@ (#\* (if (char= #\* (char metin (+ i 1))) (pushla-ve-ayrıştır :b "**") (pushla-ve-ayrıştır :i "*"))) + (#\! + (when (char= #\[ (char metin (+ i 1))) + (push (metin-parçası okur (- i baş) baş) elementler) + (incf i 2) + (let ((link (link-ayrıştır okur))) + (push (çocuk-node! :img + nil + (list :src (getf (props link) :href) + :alt (value link))) + elementler)) + (setf baş i)) + (incf i)) (t (incf i))) :finally (loop :while (char= #\Newline (char metin (- i 1))) :do (decf i)) -- cgit v1.2.3