clojure-sql-exception-handling.clj

(ns whatever.core
  (:gen-class)
  (:import [java.sql SQLException])
  (:require [clojure.java.jdbc :as jdbc]
            [clojure.java.jdbc.sql :as sql]
            [clojure.pprint :as pprint]))

(def app-name "whatever")
(def env "development")

(defn database-name
  [env]
  (str app-name "_" env))

(defn database-url
  [env]
  (str "postgresql://localhost:5432/" (database-name env)))

(defmacro try-sql
  [& args]
  `(try
     (~@args)
     (catch SQLException e#
       (jdbc/print-sql-exception-chain e#))))

(defn create-table
  [env name & specs]
  (jdbc/with-connection
    (database-url env)
    (try-sql apply jdbc/create-table name specs)))

(defn create-samples-table
  [env]
  (create-table
    env
    :samples
    [:uuid        :uuid      "PRIMARY KEY"]
    [:title       :varchar]
    [:created_at  :timestamp]
    [:updated_at  :timestamp]))