 (defn render-users
     [user-name statistic changes url-prefix]
     (page/xhtml
-        (render-html-header nil)
-        [:body
-            [:div {:class "container"}
-                (render-navigation-bar-section nil user-name)
+        (render-html-header nil url-prefix)
+        [:body
+            [:div {:class "container"}
+                (render-navigation-bar-section nil user-name url-prefix)
 
                 [:table {:class "table table-stripped table-hover" :style "width:auto"}
                     [:tr [:th "User name"]


(defn render-search-field
    "Renders search box on the top side of HTML page."
    [word]
    (form/form-to {:class "navbar-form navbar-left" :role "search"} [:get "/" ]
        [:div {:class "input-group"}
            [:span {:class "input-group-addon"} "Search"]
            (form/text-field {:size "40" :class "form-control" :placeholder "Search for word"} "word" (str word))

(defn render-user-info
    [user-name changes url-prefix]
    (page/xhtml
        (render-html-header nil url-prefix)
        [:body
            [:div {:class "container"}
                (render-navigation-bar-section nil user-name url-prefix)
                [:h1 (str "Changes made by " user-name)]

                [:br]
