Pull datomic data by namespace with tx-time

data.clj

(ns data
  (:require [datomic.client.api :as datomic]))

(def client
  (datomic/client {:db-name     ""
                   :system      ""
                   :server-type :cloud
                   :region      ""
                   :endpoint    ""}))

(def conn (datomic/connect client {:db-name ""}))

(def ids
  [:customer/id :account/id]

(def where
  (vector (cons 'or (map (fn [attr] ['?e attr '_ '?tx-time]) ids))))

(def items
  (datomic/qseq {:find  '[(pull ?e [*]) ?tx-time]
                 :keys  '[entity tx-time]
                 :in    '[$]
                 :where where}
                (datomic/db conn)))

(comment
  ; use (take 10 items) to get a sample
  (def tables
    (->> items (group-by (fn [{:keys [entity]}] (namespace (first (filter (set ids) (set (keys entity))))))))))