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


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

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


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

(defn- capitalize [s] (case (= s "") "" (nil? s) nil true (str (Character/toUpperCase (.charAt s 0)) (.substring s 1))))

(defn- readable-string [id] (join " " (map capitalize (split id #"-"))))

;; Core types

