more conversion to datomic

This commit is contained in:
Bryce Covert
2018-08-16 08:23:44 -07:00
parent 0741b27239
commit a4e3fe2327
7 changed files with 114 additions and 103 deletions

View File

@@ -14,17 +14,17 @@
[auto-ap.time :refer [parse normal-date iso-date]]))
(defn get-check-page [context args value]
(defn get-payment-page [context args value]
(let [args (assoc args :id (:id context))
checks (map
payments (map
->graphql
(d-checks/get-graphql (<-graphql args)))
checks-count (d-checks/count-graphql (<-graphql args))]
[{:checks checks
[{:payments payments
:total checks-count
:count (count checks)
:count (count payments)
:start (:start args 0)
:end (+ (:start args 0) (count checks))}]))
:end (+ (:start args 0) (count payments))}]))
(defn add-handwritten-check [context args value]
(let [invoice (invoices/get-by-id (:invoice_id args))