More complicated (defrecord) example

gistfile1.clj

(defrecord Element [name attributes content]

  NodeStreaming
  (stream [node strategy out]
    (let [element-name (clojure.core/name name)
          attr-quote (strategy :attribute-quote)]
      (write out "<" element-name)
      ; Write out normal attributes
      (doseq [[attr-name attr-value] attributes]
        (if-not (nil? attr-value)
          (write out
            " " (clojure.core/name attr-name) "=" attr-quote (to-attr-string attr-value) attr-quote)))

      (if (empty? content)
        ((strategy :write-empty-element-close) element-name out)
        (do
          (write out ">")
          (stream-nodes content strategy out)
          (write out "</" element-name ">"))))))