                              :type "POST"
                              :data {:id id})))))
 
+(defn- frequency-stat [title data]
+  (format "%s: %s - %s" title (count data) (frequencies-string data)))
+
 (defn frequencies-string [items]
   (->> items
        frequencies

  (jq/remove ($ :#search_table))
  (jq/remove ($ :#table_stats))
  (jq/after (jq/find parent :h2)
            (view/table-stats (str "Tag Type Counts: " (frequencies-string (map first tags)))
                              (str "Tag Counts: " (frequencies-string (flatten (map :tags things))))
                              (str "Type Counts: " (frequencies-string (map :type things)))))
  (jq/after (jq/find parent :#table_stats)
            (generate-table "search_table" things
                            :fields [:type :name :url :desc :tags]

        (make-table-editable)
        (.timeago ($ :td.timestamp))
        (jq/prepend ($ :#type_show_box)
                    (view/table-stats (frequency-stat "Tag Counts" (flatten (map :tags data))))))
      :data {:name type})))

(defn ^:export all []
