     [request]
     (println-and-flush "request URI: " (request :uri))
     (let [uri     (request :uri)
-          zw-mode (zw-mode? request)]
+          title   (get-title request)]
         (condp = uri
             "/favicon.ico"       (return-file "favicon.ico" "image/x-icon")
             "/bootstrap.min.css" (return-file "bootstrap.min.css" "text/css")
             "/smearch.css"       (return-file "smearch.css" "text/css")
             "/bootstrap.min.js"  (return-file "bootstrap.min.js" "application/javascript")
-            "/"                  (process-front-page    request zw-mode)
-            "/all-words"         (process-all-words     request zw-mode)
-            "/deleted-words"     (process-deleted-words request zw-mode)
-            "/active-words"      (process-active-words  request zw-mode)
+            "/"                  (process-front-page    request title)
+            "/all-words"         (process-all-words     request title)
+            "/deleted-words"     (process-deleted-words request title)
+            "/active-words"      (process-active-words  request title)
             "/add-word"          (process-add-word      request)
             ;"/find-words"       (process-find-words    request)
             "/add-words"         (process-add-words     request)
-            "/users"             (process-user-list     request zw-mode)
-            "/user"              (process-user-info     request zw-mode)
+            "/users"             (process-user-list     request title)
+            "/user"              (process-user-info     request title)
             "/wordlist/json"     (process-wordlist-json request)
             "/wordlist/text"     (process-wordlist-text request)
             "/wordlist/xml"      (process-wordlist-xml  request)

        (println "stat"    changes-statistic)
        (println "changes" changes)
        (if user-name
            (-> (http-response/response (html-renderer/render-users user-name changes-statistic changes 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-users user-name changes-statistic changes url-prefix zw-mode))
                (http-response/content-type "text/html")))))

(defn process-user-info
    [request zw-mode]
    (let [params            (:params request)
          selected-user     (get params "name")
          changes           (read-changes-for-user selected-user)
          user-name         (get-user-name request)
          url-prefix        (get-url-prefix request)]
        (if user-name
            (-> (http-response/response (html-renderer/render-user-info selected-user changes 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-user-info selected-user changes url-prefix zw-mode))
                (http-response/content-type "text/html")))))

(defn words->json

              (db-interface/undelete-word to-undelete))))

(defn process-all-words
    [request title]
    (perform-operation request)
    (let [search-results (db-interface/read-all-words)]
        (finish-processing request search-results nil title)))

(defn process-deleted-words
    [request title]
    (perform-operation request)
    (let [search-results (db-interface/read-deleted-words)]
        (finish-processing request search-results nil title)))

(defn process-active-words
    [request title]
    (perform-operation request)
    (let [search-results (db-interface/read-active-words)]
        (finish-processing request search-results nil title)))

(defn read-changes-statistic
    []
