   "Returns list of table names for current db."
   []
   (map last (map first (vec (show-tables DB)))))
-
-
-(defn list-fields
-  "Returns list of fields for given table.
-  TODO: do this without string concat"
-  [table]
-  (jdbc/query DB [(str "DESC " table)]))
 
 
 (defn prettify

  "Given table name, fetch all rows from database and return
  as HTML table."
  [dbname table]
  (let [rows (jdbc/query DB [(build-query dbname table)])]
	(h/html
	 [:p {:class "count"} (str (count rows) " rows found")]
	 [:table

(ns tesq.core
  (:require [tesq.config :refer [DB display-fields]]
			[clojure.java.jdbc :as jdbc]
			[clojure.pprint :refer [pprint]]
			[clojure.string :refer [replace capitalize trimr]]
			[clojure.set :refer [difference]]
			[compojure.core :refer [defroutes GET POST]]
			[compojure.route :refer [resources not-found]]
			[compojure.handler :refer [site]]
