 (ns hyjinks)
 
-(use '[clojure.string :only (escape)])
+(use '[clojure.string :only (escape split join)])
 
 ;; General helpers
 

			\& "&amp;"
			\" "&quot;"
			\' "&#39;"})))

;; Core types



(defn table-rows [& rows] (table (map #(row-cells (flatten %)) rows)))

(defn map-table [m] (table (map (fn [[k v]] (tr (td (if (keyword? k) (readable-string (name k)) k)) (td v))) (sort-by key m))))

(defn definitions [term-map]
	(dl (mapcat (fn [[t d]] [(dt t) (dd d)]) (sort-by key term-map))))

