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

   [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-seq "text/html"
  [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
      ))
