     (if input
         (->> (clojure.string/split input #"[\s,]")
              (filter seq))))
+
+(defn process-add-word
+    [request]
+    )
 
 (defn process-add-words
     [request]

        :url-prefix))

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

        (println word)
        (println search-results)
        (if user-name
            (-> (http-response/response (html-renderer/render-front-page word user-name search-results message url-prefix zw-mode))
                (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 url-prefix zw-mode))
                (http-response/content-type "text/html")))))

(defn process-front-page
    [request zw-mode]
    (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 nil zw-mode)))

(defn store-words
    [words user-name]
