diff options
Diffstat (limited to 'src/okur.lisp')
| -rw-r--r-- | src/okur.lisp | 12 |
1 files changed, 12 insertions, 0 deletions
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)) |