Apply render-children to fragment

skyizwhite · skyizwhite · commit d203c703c481 · 2024-06-09T21:14:03.000+09:00
diff --git a/src/element.lisp b/src/element.lisp
@@ -96,6 +96,22 @@
   (with-slots (type props) element
     (format stream "<~a~a>" (string-downcase type) (render-props props))))
 
+(defmethod print-object ((element html-tag) stream)
+  (format stream "<!DOCTYPE html>~%")
+  (call-next-method))
+
+(defmethod print-object ((element fragment) stream)
+  (with-slots (children) element
+    (if children
+        (format stream
+                (if (rest children)
+                    "~<~@{~a~^~:@_~}~:>"
+                    "~<~a~:>")
+                (render-children element)))))
+
+(defmethod print-object ((element component) stream)
+  (print-object (expand-component element) stream))
+
 (defun render-props (props)
   (with-output-to-string (stream)
     (loop
@@ -120,22 +136,6 @@
 (defmethod render-children ((element non-escaping-tag))
   (element-children element))
 
-(defmethod print-object ((element html-tag) stream)
-  (format stream "<!DOCTYPE html>~%")
-  (call-next-method))
-
-(defmethod print-object ((element fragment) stream)
-  (with-slots (children) element
-    (if children
-        (format stream
-                (if (rest children)
-                    "~<~@{~a~^~:@_~}~:>"
-                    "~<~a~:>")
-                children))))
-
-(defmethod print-object ((element component) stream)
-  (print-object (expand-component element) stream))
-
 (defmethod expand-component ((element component))
   (with-slots (type props children) element
     (apply type (merge-children-into-props props children))))
