             [s-html.tags :refer [a h1 li span ul]]))
 
 (defn tag-cloud
-  "Creates a tag cloud of `tags` where each element is scaled according to the number of `entries` that are tagged by it. `min` and `max` specify in percent the minimal and maximal font size of the elements."
-  [min max {:keys [entries path-to-root tags]}]
+  "Creates a tag cloud of `tags` where each element is scaled according to the number of `entries` that are tagged by it. `min-size` and `max-size` specify in percent the minimal and maximal font size of the elements."
+  [min-size max-size {:keys [entries path-to-root tags]}]
   (let [counts (->> tags
                     ;; FIXME O(N_tags * N_entries) but could be O(N_entries)
                     (map #(->> entries

                                         (contains? (into #{} (map :id tags))
                                                    (:id %))))
                               count
                               (vector %))))
        total (count entries)]
    (text-centered
     (ul {:class :list-inline}
         (map (fn [[t c]]

                        :href (pathcat path-to-root (:path t))}
                       (span {:class [:label :label-info]
                              :style (format "font-size: %s%%;"
                                             (int (+ min-size
                                                     (* (- max-size min-size)
                                                        (/ c total)))))}
                             (:id t))
                       " ")))
