 				  [: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)))
 
 
 

(defn table->html
  "Given table name, fetch all rows from database and return
  as HTML table."
  [dbname table]
  (let [_ (pprint (build-query dbname table))
		rows (jdbc/query DB [(build-query dbname table)])]
	(h/html
	 [:p {:class "count"} (str (count rows) " rows found")]
	 [:table
	  [:thead (for [[k v] (first rows)] [:td k])]
	  (for [row rows]
		[:tr
		 (for [[k v] row] [:td (truncate (str v))])
		 ]
		)
	  ])))

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