   (Static. ["<!--" comment "-->"]))
 
 (def xml-strategy {
-  :attribute-quote "\""
+  :serialize-attribute-pair (create-serialize-attribute-pair "\"")
   :write-empty-element-close (constantly ["/>"])
   })
 

    [">"]))

(def html-strategy {
  :attribute-quote "\""
  :write-empty-element-close #'html-empty-element-writer
  })

(defn serialize-html

(defn create-serialize-attribute-pair
  "Returns a function that a key/value attribute pair into a seq of strings for rendering the attribute value. The key is expected a string or keyword. The value is a string,
  number, or keyword. If the value is nil, the returned function returns nil."
  [attr-quote]
  (fn [[attr-name attr-value]]
    (if (nil? attr-value)
      nil
      [" " (name attr-name) "=" attr-quote (to-attribute-value-string attr-value) attr-quote])))

(defn serialize-attribute-pairs
  [attributes strategy]
  (mapcat (:serialize-attribute-pair strategy) attributes))

(defn serialize-content-and-close [element-name content strategy]
  (if (empty? content)
