gistfile1.txt

(defn pluralize
  "Turn a string to plural"
  [x]
  (if (= (last (name x)) \y)
    (apply str (concat (drop-last (name x)) [\i \e \s]))
    (str (name x) "s")))

(defn table [t]
  (cql/table db (pluralize t)))

(defn col [t c]
  (keyword (str (pluralize (name t)) "." (name c))))

(defn fk [t]
  (str (name t) "_id"))

(defn pk [t]
  "id")

(defn refer-fk [t1 t2]
  (col t1 (fk t2)))

(defn only-of
  "Pass singular keywords for now."
  [t1 t2]
  (cql/join (table t1)
	    (table t2)
	    (cql/where (= (refer-fk t2 t1)
			  (col t1 (pk t1))))))