 				  [:li :a] (e/set-attr :href (str "/table/" item))
 				  [:li] (e/add-class (if (= table item)"active"))
 				  )
-  [:#content] (e/html-content (table->html "acfe" table)))
+  [:#content] (e/html-content (table->html table)))
 
 
 

			[compojure.route :refer [resources not-found]]
			[compojure.handler :refer [site]]
			[hiccup.core :as h]
			[ring.middleware.gzip :refer [wrap-gzip]]
			[net.cgrand.enlive-html :as e]
			[net.cgrand.reload :refer [auto-reload]]



(defn build-query
  "Given table name, return query string that retrieves table data and
  looks up display fields from related tables."
  [table]
  (let [constraints (filter #(= table (:table_name %)) (fk-constraints DB (:database DB)))
		all-columns (map :field (jdbc/query DB [(str "DESC " table)]))
		non-lookup-columns (difference (set all-columns) (set (map :column_name constraints)))
		related-tables (for [{:keys [referenced_table_name column_name]} constraints]
