18 lines
706 B
Clojure
18 lines
706 B
Clojure
(ns app.nyse
|
|
(:require [mount :refer [defstate]]
|
|
[datomic.api :as d]
|
|
[clojure.tools.logging :refer [info]]
|
|
[app.config :refer [app-config]]))
|
|
|
|
(defn- new-connection [{:keys [datomic-uri]}]
|
|
(info "creating a connection to datomic:" datomic-uri)
|
|
(d/create-database datomic-uri)
|
|
(d/connect datomic-uri))
|
|
|
|
(defn disconnect [{:keys [datomic-uri]} conn]
|
|
(info "disconnecting from " datomic-uri)
|
|
(.release conn) ;; usually it's not released, here just to illustrate the access to connection on (stop)
|
|
(d/delete-database datomic-uri))
|
|
|
|
(defstate conn :start (new-connection (mount/args))
|
|
:stop (disconnect (mount/args) conn))
|