30 lines
670 B
Clojure
30 lines
670 B
Clojure
(ns auto-ap.datomic.bank-accounts
|
|
(:require
|
|
[auto-ap.datomic :refer [conn]]
|
|
[datomic.api :as dc]))
|
|
|
|
(defn add-arg [query name value where & rest]
|
|
(let [query (-> query
|
|
(update :args conj value)
|
|
(update-in [:query :in] conj name)
|
|
(update-in [:query :where] conj where))]
|
|
(reduce #(update-in %1 [:query :where] conj %2) query rest)))
|
|
|
|
(def default-read '[* {:client/_bank-accounts [:db/id]}])
|
|
|
|
(defn <-datomic [x]
|
|
(->> x
|
|
(map #(update % :bank-account/type :db/ident))
|
|
))
|
|
|
|
|
|
|
|
(defn get-by-id [id]
|
|
(->> [(dc/pull (dc/db conn ) default-read id)]
|
|
(<-datomic)
|
|
(first)))
|
|
|
|
|
|
|
|
|