       ))
 
 (defmethod render-seq "text/html"
-  [m representation]
-  (-> (html5
-         [:head [:style (slurp (io/resource "json.human.css"))]]
-         (jh/edn->html m))
+  [s representation]
+  (-> (html s)
+      (str \newline) ; annoying on the command-line otherwise
+      (to-body representation) ; for string encoding
+      ))
+
+(defmethod render-seq "application/xhtml+xml"
+  [s representation]
+  (-> (xhtml s)
       (str \newline) ; annoying on the command-line otherwise
       (to-body representation) ; for string encoding
       ))

   [byte-streams :as bs]
   [cheshire.core :as json]
   [hiccup.core :refer [html h]]
   [hiccup.page :refer [html5]]
   [json-html.core :as jh]
   [manifold.stream :refer [->source transform]]
   [ring.util.codec :as codec]


(defmethod render-map "text/html"
  [m representation]
  (-> (html
       [:head [:style (slurp (io/resource "json.human.css"))]]
         (jh/edn->html m))
      (str \newline) ; annoying on the command-line otherwise
