 	(for [[k v] row]
 	  [:tr
 	   [:td k]
-	   [:td v]])]
+	   [:td (truncate v)]])]
    [:button [:a {:href (str "/edit?table=" table "&id=" (:id row))} "Edit"]]
    ))
 

			))


(def big-text 100) ; anything bigger justifies textarea


(defn- read-only?

(defn- truncate
  "If string is too long, cut short and append ellipsis."
  [s]
  (if (< big-text (count (str s)))
	(str (apply str (take big-text (str s))) "... (more)")
	s))


(defn rows->table
