                          [:th "Added by"]]
                     (for [change changes]
                         [:tr [:td (:word change)]
-                             [:td (if (= (:dictionary change) "w") "whitelist" "blacklist")]
+                             [:td (dictionary-name (:dictionary change))]
                              [:td (:datetime change)]
                              [:td (user-href (:user change) mode)]])
                 ] ; </table>

                         [:th "Added at"]]
                    (for [change changes]
                        [:tr [:td (:word change)]
                             [:td (if (= (:dictionary change) "w") "whitelist" "blacklist")]
                             [:td (:datetime change)]])
                ] ; </table>
                (render-html-footer)

        ] ; </body>
    ))

(defn dictionary-name
    [dictionary-type]
    (condp = dictionary-type
        "w" "whitelist"
        "b" "blacklist"
        "a" "atomic typos"
            "unknown"))

(defn render-users
    "Render page containing list of all users."
    [user-name statistic changes url-prefix title mode]
