     user-name))
 
 (defn get-title
+  "Get page title from configuration that is part of request."
   [request]
   (-> (:configuration request)
       :display
       :app-name))
 
 (defn get-emender-page
+  "Retrieve link to Emender page from configuration.."
   [request]
   (-> (:configuration request)
       :display
       :emender-page))
 
 (defn get-url-prefix
+  "Retrieve URL prefix from configuration."
   [request]
   (-> (:configuration request)
       :server
       :url-prefix))
 
 (defn finish-processing
+  "Finish processing of HTTP request."
   [request search-results sources classes message title emender-page mode]
   (let [params        (:params request)
         cookies       (:cookies request)

                         mode))))

(defn process-add-words
  [request title emender-page mode]
  (let [input        (-> (:params request) (get "new-words"))
        words        (split-words input)

                           :content [(:word word)]})})))

(defn words->edn
  "Convert all words into EDN format."
  [words]
  (with-out-str
    (clojure.pprint/pprint words)))

(defn words->csv
  "Convert all words into CSV format."
  [words]
  (with-out-str
    (csv/write-csv *out* words)))

(defn words->vector
  "Convert all words into vector."
  [words]
  (for [word words]
    (vals word)))

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