(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)))