Improve render function

src/element.lisp

@@ -63,9 +63,10 @@
     (let ((type-str (string-downcase type)))
       (if children
           (format stream
-                  (if (rest children)
+                  (if (and (null (rest children))
-                      "~@<<~a~a>~2I~:@_~<~@{~a~^~:@_~}~:>~0I~:@_</~a>~:>"
+                           (typep (first children) 'string))
-                      "~@<<~a~a>~2I~:_~<~a~^~:@_~:>~0I~_</~a>~:>")
+                      "~@<<~a~a>~2I~:_~<~a~^~:@_~:>~0I~_</~a>~:>"
+                      "~@<<~a~a>~2I~:@_~<~@{~a~^~:@_~}~:>~0I~:@_</~a>~:>")
                   type-str
                   (props->string props)
                   children

tests/renderer.lisp

@@ -19,29 +19,34 @@
                (render (hsx (div :prop1 "value1" :prop2 t :prop3 nil))))))
 
 (test tag-with-children
-  (is (string= "<p>Hello, World!</p>"
+  (is (string= "<p>foo</p>"
-               (render (hsx (p "Hello, World!")))))
+               (render (hsx (p "foo")))))
   (is (string= #M"<p>
-                 \  Hello,
+                 \  <span>foo</span>
-                 \  <span>World!</span>
                  \</p>"
                (render (hsx (p
-                              "Hello,"
+                              (span "foo"))))))
-                              (span "World!")))))))
+  (is (string= #M"<p>
+                 \  foo
+                 \  <span>bar</span>
+                 \</p>"
+               (render (hsx (p
+                              "foo"
+                              (span "bar")))))))
 
 (test tag-with-props-and-children
-  (is (string=  "<p prop1=\"value1\" prop2>Hello, World!</p>"
+  (is (string=  "<p prop1=\"value1\" prop2>foo</p>"
                 (render (hsx
                           (p :prop1 "value1" :prop2 t :prop3 nil
-                            "Hello, World!")))))
+                            "foo")))))
   (is (string= #M"<p prop1=\"value1\" prop2>
-                 \  Hello,
+                 \  foo
-                 \  <span>World!</span>
+                 \  <span>bar</span>
                  \</p>"
                (render (hsx
                          (p :prop1 "value1" :prop2 t :prop3 nil
-                           "Hello,"
+                           "foo"
-                           (span "World!")))))))
+                           (span "bar")))))))
 
 (test fragment
   (let ((frg (hsx