                          mode))))
 
 (defn process-add-words
+  "Add words provided by user (together with its description) to the blacklist or into atomic typos."
   [request title emender-page mode]
   (let [input        (-> (:params request) (get "new-words"))
         words        (split-words input)

        (http-response/content-type "text/plain"))))

(defn process-wordlist-xml
  [request dictionary-type]
  (let [search-results (db-interface/read-all-words dictionary-type)
        xml-output     (words->xml search-results)]

        (http-response/content-type "application/edn"))))

(defn process-wordlist-csv
  "Prepare report with all words in CSV format."
  [request dictionary-type]
  (let [search-results (db-interface/read-all-words dictionary-type)
        words          (words->vector search-results)
