 (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)))
+  (if (< big-text (count (str s)))
+	(str (apply str (take big-text (str s))) "... (more)")
+	s))
 
 
 (defn rows->table

			))


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


(defn- read-only?

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

