   [:td.editable {:title (string/join ", " tags) :data-field "tags"}
     (interpose ", " (map link-tag tags))])
 
-(defn- td-model [model]
-   [:td [:a {:href (path-to "/" model)} model]]) 
+(defn- td-type [type]
+   [:td.editable {:title type :data-field "type"}
+     [:a {:href (path-to "/" type)} type]])
 
 ;;; partials
 (defpartial default-row [row fields]

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


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