 
 (defpartial tag-search-row [row & fields]
   [:tr {:data-id (:id row)}
-   (td-model (:type row))
+   (td-type (:type row))
    (td-name (:name row))
    (td-url (:url row))
    (td-desc (:desc row))


(defpartial model-stats-row [row & fields]
  [:tr
   (td-model (name (:name row)))
   [:td (:count row)]
   [:td (:name-percent row)]
   [:td (:url-percent row)]

    [:tr {:data-id (:id row)}
     [:td attr]
     (case attr
       :type (td-type (:value row))
       :url (td-url (:value row))
       :name (td-name (:value row))
       :tags (td-tags (:value row))
