 			))
 
 
-(def big-text 100) ; anything bigger justifies textarea
+(def big-text 200) ; anything bigger justifies truncation or textarea
 
 
 (defn- read-only?

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


(defn rows->table

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

