markdownda img elementinin ayrıştırılması (geçici olarak böyle)

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))