   "Builds a small HTML snippet for each table to be used in bootstrap popover"
   [props]
   (build-popover
-    [:h3 (:name props)]
+    (str "<h3>" (escape-html (:name props)) "</h3>")
     [:regions
      :store-files
      :store-file-size-mb

                              (merge (zipmap (keys servers) (repeat []))
                                     (group-by :server visible-regions))))
        ;; Function to sort the regions in the descending order
        score-fn #(vector (- (metric %))
                          (.indexOf all-tables (:table %)))
        sort-fn (if (= sort :metric)
                  (fn [regions] (sort-by score-fn regions))
                  (fn [regions] (sort-by (comp vec reverse score-fn) regions)))
        ;; Sort the regions in each server
        grouped (pmap #(update % :regions sort-fn) grouped)
        ;; Find the local sum of the metric of each region
        grouped (map #(assoc % :sum (reduce + (filter pos? (map metric (:regions %)))))
                     grouped)

                           #(reduce - 0 (map metric (val %)))
                           (group-by :table all-regions)))

        ;; Filter regions by table name
        visible-regions (map byte-buffers->str
                             (if (seq tables)
                               (let [tables (set tables)]
                                 (filter #(tables (:table %)) all-regions))
                               all-regions))

        ;; Group by server, sort the pairs, build a list of maps with :name and :regions
        grouped (map #(zipmap [:name :regions] %)
