                     [:tr [:th "User name"]
                          [:th "Changes made"]]
                     (for [stat statistic]
-                        [:tr [:td (:user_name stat)]
+                        [:tr [:td [:a {:href (str "user?name=" (:user_name stat))} (:user_name stat)]]
                              [:td (:cnt stat)]]
                     )
                 ]

    []
    (try
        (jdbc/query changes-db (str "select * from changes order by id;"))
        (catch Exception e
            (println-and-flush "read-ccs-description(): Error accessing database 'css_descriptions.db'!")
            (println e)

            (http-response/content-type "text/html"))))

(defn render-users-info
    "Create page containing user info(s) for all users."
    [request]
    (let [changes-statistic (read-changes-statistic)
          changes           (read-changes)
          user-name         (get (get (request :cookies) "user-name") :value)]
        (-> (http-response/response (html-renderer-users changes-statistic changes user-name))
            (http-response/content-type "text/html"))))

(defn render-user-info
    "Create page containing detailed informations about selected user."
    [request]
    (let [params        (request :params)
          user-name     (get (get (request :cookies) "user-name") :value)
          selected-user (get params "name")
          changes       (read-changes-for-user selected-user)]
          (println "User name: " selected-user)
          ;(println "User made changes: " changes)
        (-> (http-response/response (html-renderer-user changes selected-user user-name))
            (http-response/content-type "text/html"))))

(defn return-file
