(let [client-code "NGKG-CH2231" [[external-id token]] (seq (dc/q '[:find ?external-id ?t :in $ ?ba :where [?ba :bank-account/plaid-account ?pa] [?pa :plaid-account/external-id ?external-id] [?pi :plaid-item/accounts ?pa] [?pi :plaid-item/access-token ?t]] (dc/db conn) [:bank-account/code client-code])) end (atime/local-now) start (clj-time.core/plus end (clj-time.core/days -30)) ] (get-transactions token start end))