21 lines
751 B
Clojure
21 lines
751 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 [conf]
|
|
(info "conf: " conf)
|
|
(let [uri (get-in conf [:datomic :uri])]
|
|
(info "creating a connection to datomic:" uri)
|
|
(d/create-database uri)
|
|
(d/connect uri)))
|
|
|
|
(defn disconnect [conf conn]
|
|
(let [uri (get-in conf [:datomic :uri])]
|
|
(info "disconnecting from " uri)
|
|
(.release conn) ;; usually it's not released, here just to illustrate the access to connection on (stop)
|
|
(d/delete-database uri)))
|
|
|
|
(defstate conn :start (new-connection app-config)
|
|
:stop (disconnect app-config conn))
|