From 2e16ed1e2a741ee6ae5f8dfe13a739219d8bb562 Mon Sep 17 00:00:00 2001 From: riton Date: Mon, 31 Mar 2025 23:52:03 +0300 Subject: =?UTF-8?q?self=20closing=20(void)=20elementlerin=20d=C3=BCzg?= =?UTF-8?q?=C3=BCn=20yazd=C4=B1r=C4=B1lmas=C4=B1?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- "src/\303\274retim.lisp" | 18 +++++++++++++----- 1 file changed, 13 insertions(+), 5 deletions(-) diff --git "a/src/\303\274retim.lisp" "b/src/\303\274retim.lisp" index 3b3530d..bff33f2 100644 --- "a/src/\303\274retim.lisp" +++ "b/src/\303\274retim.lisp" @@ -19,6 +19,10 @@ ((:html :head :body :div :ol :ul :li :p :title :pre :h1 :h2 :h3 :h4 :h5 :h6) t) ((:b :i :code) nil))) +(defun tag-sonu-tagsız? (tag) + (case tag + (:img t))) + (defun yeni-satır-yaz (stream) (write-char #\Newline stream) (setf *satır-başı* t)) @@ -38,18 +42,21 @@ (loop :for i :from 0 :below *indent* :do (write-char #\Space stream))) (if (null (props node)) - (format stream "<~a>" (tag node)) + (format stream "<~a" (tag node)) (loop :initially (format stream "<~a" (tag node)) :for (k v) :on (props node) :by #'cddr - :do (format stream " ~a=\"~a\"" k v) - :finally (write-char #\> stream))) + :do (format stream " ~a=\"~a\"" k v))) + (if (tag-sonu-tagsız? (tag node)) + (write-string " />" stream) + (write-char #\> stream)) (setf *satır-başı* nil) (when (tag-başı-yeni-satır? (tag node)) (yeni-satır-yaz stream))) (defmethod node->html ((node node) &optional (stream *standard-output*)) (if (null (children node)) - (kaçışlı-içerik-yazdır (value node) stream) + (when (not (null (value node))) + (kaçışlı-içerik-yazdır (value node) stream)) (let ((*indent* (+ *indent* *indent-increment*))) (loop :for child :in (children node) :do (node->html child stream))))) @@ -58,7 +65,8 @@ (unless (not *satır-başı*) (loop :for i :from 0 :below *indent* :do (write-char #\Space stream))) - (format stream "" (tag node)) + (unless (tag-sonu-tagsız? (tag node)) + (format stream "" (tag node))) (when (tag-sonu-yeni-satır? (tag node)) (yeni-satır-yaz stream))) -- cgit v1.2.3