HTML-38 Implement NamedTuple#to_html_attrs

spec/instance_template/attributes_spec.cr

@@ -7,7 +7,7 @@ module ToHtml::InstanceTemplate::AttributesSpec
 
     ToHtml.instance_template do
       div MyCssClass, MyOtherCssClass, {"class", "so-unique"}, more_css_classes do
-        span(SPECIAL_CSS_CLASSES) { "Blah" }
+        span(SPECIAL_CSS_CLASSES, {class: "moo"}) { "Blah" }
         img SPECIAL_CSS_CLASSES, more_css_classes, {"class", nil}
         div MyStimulusController do
           p({"class", "so-special"}) do
@@ -80,7 +80,7 @@ module ToHtml::InstanceTemplate::AttributesSpec
 
         expected = <<-HTML
         <div class="my-css-class my-other-css-class so-unique my-third-css-class that-other-css-class">
-          <span class="my-css-class my-other-css-class">Blah</span>
+          <span class="my-css-class my-other-css-class moo">Blah</span>
           <img class="my-css-class my-other-css-class my-third-css-class that-other-css-class">
           <div data-controller="my" data-action="click->handle_click()">
             <p class="so-special">Some content</p>

src/ext/named_tuple.cr

@@ -0,0 +1,7 @@
+struct NamedTuple
+  def to_html_attrs(_tag, attr_hash)
+    each do |key, value|
+      attr_hash[key.to_s] = value
+    end
+  end
+end

src/to_html.cr

@@ -1,2 +1,3 @@
 require "./instance_template"
 require "./instance_tag_attrs"
+require "./ext/**"