 
 ;;; td formatters
 (defn- td-url [url]
-  [:td [:a {:href url} (shorten-to url 40)]])
+  [:td [:a {:href url} (shorten-to url 30)]])
+
+(defn- td-desc [desc]
+  [:td {:title desc} (shorten-to desc 30)]) 
 
 (defn- td-tags [tags]
   [:td

  [:tr
   (td-model (:namespace row))
   (td-url (:url row))
   [:td (:desc row)]
   (td-tags (:tags row))])

(defpartial models-row [row & fields]

  [:tr
   [:td (if (seq (:name row)) (link-tag (:name row)) (:name row))]
   (td-url (:url row))
   (td-desc (:desc row))
   (td-tags (:tags row))])

(defpartial tag-row [row & fields]
