             "/user"              (process-user-info     request)
             "/wordlist/json"     (process-wordlist-json request)
             "/wordlist/text"     (process-wordlist-text request)
+            "/wordlist/xml"      (process-wordlist-xml  request)
             ;"/delete-word"      (process-delete-word   request)
             ;"/undelete-word"    (process-undelete-word request)
             )))

    [words]
    (clojure.string/join "\n" words))

(defn process-wordlist-json
    [request]
    (let [search-results (db-interface/read-all-words)

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

(defn process-wordlist-xml
    [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]
