         user-name))
 
 (defn finish-processing
-    [request search-results]
+    [request search-results message]
     (let [params        (:params request)
           cookies       (:cookies request)
           word          (get params "word")

    (let [params         (:params request)
          word           (get params "word")
          search-results (if (not (empty? word)) (db-interface/read-words-for-pattern word))]
        (finish-processing request search-results)))

(defn store-words
    [words user-name]

        (println word)
        (println search-results)
        (if user-name
            (-> (http-response/response (html-renderer/render-front-page word user-name search-results message))
                (http-response/set-cookie :user-name user-name {:max-age 36000000})
                (http-response/content-type "text/html"))
            (-> (http-response/response (html-renderer/render-front-page word user-name search-results message))
                (http-response/content-type "text/html")))))

(defn process-front-page
