                                                              :description  (:description word)}
                                                              :content      [(:word word)]})})))
 
+(defn words->edn
+    [words]
+    (with-out-str
+        (clojure.pprint/pprint words)))
+
 (defn process-wordlist-json
     [request]
     (let [search-results (db-interface/read-all-words)

          xml-output     (words->xml search-results)]
        (-> (http-response/response xml-output)
            (http-response/content-type "text/xml"))))

;defn process-delete-word
;   [request]

            "/wordlist/json"     (process-wordlist-json request)
            "/wordlist/text"     (process-wordlist-text request)
            "/wordlist/xml"      (process-wordlist-xml  request)
            "/wordlist/edn"      (process-wordlist-edn  request)
            ;"/delete-word"      (process-delete-word   request)
            ;"/undelete-word"    (process-undelete-word request)
            )))
