;; This buffer is for Clojure experiments and evaluation.

;; Press C-j to evaluate the last expression.

;; You can also press C-u C-j to evaluate the expression and pretty-print its result.

(doall 
 (for [[d x] (d/q '[:find ?d (count ?t) 
                    :in $ ?u
                    :where [?t :audit/user ?u]
                    [?t :db/txInstant ?moment]
                    (not [?t :audit/batch])
                    [(>= ?moment #inst "2022-10-01")]
                    [(clj-time.coerce/to-date-time ?moment) ?moment2]
                    [(ground (clj-time.format/formatter "yyyy-MM-dd HH:mm")) ?formatter]
                    [(clj-time.format/unparse ?formatter ?moment2) ?d]]
                  (d/history (d/db auto-ap.datomic/conn))
                  "admin-Kyle Stapp")]
   (println d \tab x)
   ))
