fn.clj

gistfile1.txt

(ns fs.core
  (:require [clojure.java.jdbc :as sql]))

(let [db-protocol "file"
      db-host     "/Users/shakeel/Desktop"
      db-name     "fs"]

    (def db {:classname "org.h2.Driver" ; must be in classpath
     :subprotocol "h2"
     :subname (str db-protocol "://" db-host "/" db-name)
     :user "sa"
     :password ""}))

(defn create-blogs
  "Create a table to store blog entries"
  []
  (sql/create-table-ddl
    :blogs
    ([:id :int "PRIMARY KEY" "AUTO_INCREMENT"]
     [:title "varchar(255)"]
     [:body :text])))

(sql/with-db-connection
[con-db db]
(sql/with-db-transaction
  (create-blogs)))