diff options
| author | riton <riton@riton.home> | 2025-03-31 23:52:42 +0300 |
|---|---|---|
| committer | riton <riton@riton.home> | 2025-03-31 23:52:42 +0300 |
| commit | 369f0d67187b3eec068848820d2272bcf45ea0d7 (patch) | |
| tree | f334d1b685ff3858e56f669a81a36098e2a67a63 | |
| parent | 2e16ed1e2a741ee6ae5f8dfe13a739219d8bb562 (diff) | |
markdownda img elementinin ayrıştırılması (geçici olarak böyle)
| -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)) |