                        :glossary)))
 
 (defn add-word-message
+  "Message that new word has been added into the dictionary."
   [word proper-word]
   (if (seq word)
     (if proper-word

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

(defn process-user-info
  [request title mode]
  (let [params        (:params request)
        selected-user (get params "name")

        (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)
