gistfile1.txt

(defmacro dosql [& forms] `(run *conn-info* ~@forms))

(defn setup 
  []
  (try (dosql
         (create-table
           users
           [id int
            username "varchar(64)"
            password "varchar(64)"
            public_key "varchar(1024)"
            private_key "varchar(1024)"]
           :primary-key id
           :auto-inc id
           :unique username
           :not-nulls [id username password public_key private_key])
         )
    (catch java.sql.SQLException e
      (when (empty? (re-seq #"exists" (.getMessage e))) (throw e)))
    ))