       [:ul
        (for [child children]
          [:li [:a {:href (:hecuba/href child)} (:hecuba/name child)]])])
-    [:pre (pr-str item)]]))
+    [:pre (with-out-str
+            (pprint {:item item
+                     :children children}))]]))
 
 ;; REST resource for individual items.
 

  (fn [{item ::item children ::children {mime :media-type} :representation}]
    (case mime
      "text/html" (render-item-html item children)
      ;; The default is to let Liberator render our data
      {:item item
       :children children})))

   [clojure.edn :as edn]
   [clojure.java.io :as io]
   [clojure.string :as string]
   [clojure.pprint :refer (pprint)]
   [camel-snake-kebab :as csk]))

(def base-media-types ["text/html" "application/json" "application/edn"])
