notid/integreat
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Revert "Adds beginning of cash flows"

Browse Source 
This reverts commit a9f71ef3f3.
This commit is contained in:
Bryce Covert
2022-12-10 13:49:23 -08:00
parent 2d3b796793
commit ff18d637ed
7 changed files with 2070 additions and 656 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
scratch-sessions/checkup.clj
View File

@@ -1,20 +0,0 @@
;; 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)
))