Clojure Create Tables

gistfile1.clj

(ns my.ns
      (:use [korma.db])
      (:use [korma.core])
      (:require [clojure.java.jdbc :as sql]))

(def dbspec  {:classname   "org.h2.Driver" 
             :subprotocol "h2" 
             :subname "~/db/myapp"
             :user     "sa"
             :password ""})

(defdb mydb dbspec)
(defentity factoid)

(defn create-tables
  "Create a factoid table"
  []
  (do 
    (sql/create-table
      "factoid"
      [:id          "IDENTITY" "NOT NULL" "PRIMARY KEY"]
      [:created_by  "VARCHAR(255)"]
      [:fact        "VARCHAR(255)"]
      [:answer      "VARCHAR"]
      [:created_on  "TIMESTAMP" "NOT NULL" "DEFAULT CURRENT_TIMESTAMP"])
   (sql/do-commands "CREATE INDEX FACTIDX ON factoid(fact)")))


(defn invoke-with-connection [f]
  (sql/with-connection
     dbspec
     (sql/transaction
       (f))))

;; .
;; .
;; .
(invoke-with-connection create-tables)

Awesome! Thanks for posting. Works great.

No prob, enjoy!