21 lines
819 B
Clojure
21 lines
819 B
Clojure
;; 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)
|
|
))
|