From 6a6e3231e7719eedbed14255028f7d80121cd777 Mon Sep 17 00:00:00 2001
From: paku <paku@skyizwhite.dev>
Date: Thu, 30 May 2024 09:22:18 +0900
Subject: [PATCH] Improve render function

---
 src/element.lisp    |  7 ++++---
 tests/renderer.lisp | 29 +++++++++++++++++------------
 2 files changed, 21 insertions(+), 15 deletions(-)

diff --git a/src/element.lisp b/src/element.lisp
index f05e9bb..b563716 100644
--- a/src/element.lisp
+++ b/src/element.lisp
@@ -63,9 +63,10 @@
     (let ((type-str (string-downcase type)))
       (if children
           (format stream
-                  (if (rest children)
-                      "~@<<~a~a>~2I~:@_~<~@{~a~^~:@_~}~:>~0I~:@_</~a>~:>"
-                      "~@<<~a~a>~2I~:_~<~a~^~:@_~:>~0I~_</~a>~:>")
+                  (if (and (null (rest children))
+                           (typep (first children) 'string))
+                      "~@<<~a~a>~2I~:_~<~a~^~:@_~:>~0I~_</~a>~:>"
+                      "~@<<~a~a>~2I~:@_~<~@{~a~^~:@_~}~:>~0I~:@_</~a>~:>")
                   type-str
                   (props->string props)
                   children
diff --git a/tests/renderer.lisp b/tests/renderer.lisp
index 93b7c7a..65c6cd2 100644
--- a/tests/renderer.lisp
+++ b/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>"
-               (render (hsx (p "Hello, World!")))))
+  (is (string= "<p>foo</p>"
+               (render (hsx (p "foo")))))
   (is (string= #M"<p>
-                 \  Hello,
-                 \  <span>World!</span>
+                 \  <span>foo</span>
                  \</p>"
                (render (hsx (p
-                              "Hello,"
-                              (span "World!")))))))
+                              (span "foo"))))))
+  (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,
-                 \  <span>World!</span>
+                 \  foo
+                 \  <span>bar</span>
                  \</p>"
                (render (hsx
                          (p :prop1 "value1" :prop2 t :prop3 nil
-                           "Hello,"
-                           (span "World!")))))))
+                           "foo"
+                           (span "bar")))))))
 
 (test fragment
   (let ((frg (hsx