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

added suggestions

Browse Source
This commit is contained in:
Bryce Covert
2022-07-26 07:01:18 -07:00
parent 96c80853ef
commit 84f7e734f0
65 changed files with 130 additions and 1140 deletions
Download Patch File Download Diff File Expand all files Collapse all files

53
src/clj/auto_ap/datomic.clj
View File

@@ -14,9 +14,11 @@
#_(def uri "datomic:mem://datomic-transactor:4334/invoice")
#_{:clj-kondo/ignore [:clojure-lsp/unused-public-var]}
(defn create-database []
(d/create-database uri))
#_{:clj-kondo/ignore [:clojure-lsp/unused-public-var]}
(defn drop-database []
(d/delete-database uri))
@@ -535,70 +537,35 @@
[ address-schema contact-schema vendor-schema client-schema bank-account-schema invoice-schema invoice-expense-account-schema payment-schema invoice-payment-schema transaction-schema user-schema])
(defn query-entities []
(d/q '[:find (pull ?e [:vendor/name])
:where [?e :vendor/name]]
(d/db (d/connect uri))))
(defn query-vendors []
(d/q '[:find (pull ?e [*])
:where [?e :vendor/original-id]]
(d/db (d/connect uri))))
(defn query-clients []
(d/q '[:find (pull ?e [*])
:where [?e :client/original-id]]
(d/db (d/connect uri))))
(defn query-invoices []
(d/q '[:find (pull ?e [* {:invoice/vendor [*]
:invoice/expense-accounts [*]}])
:where [?e :invoice/original-id]]
(d/db (d/connect uri))))
(defn query-payments []
(d/q '[:find (pull ?e [* {:invoice-payment/_payment [* {:invoice-payment/invoice [*]}]}])
:where [?e :payment/original-id]]
(d/db (d/connect uri))))
(defn query-check-payments []
(d/q '[:find (pull ?e [* {:invoice-payment/payment [*]}])
:where [?e :invoice-payment/original-id]]
(d/db (d/connect uri))))
(defn query-transactions []
(d/q '[:find (pull ?e [*])
:where [?e :transaction/original-id]]
(d/db (d/connect uri))))
(defn query-users []
(d/q '[:find (pull ?e [*])
:where [?e :user/original-id]]
(d/db (d/connect uri))))
#_{:clj-kondo/ignore [:clojure-lsp/unused-public-var]}
(defn migrate-vendors [_]
[[]])
#_{:clj-kondo/ignore [:clojure-lsp/unused-public-var]}
(defn migrate-clients [_]
[[]])
#_{:clj-kondo/ignore [:clojure-lsp/unused-public-var]}
(defn migrate-invoices [_]
[[]])
#_{:clj-kondo/ignore [:clojure-lsp/unused-public-var]}
(defn migrate-payments [_]
[[]])
#_{:clj-kondo/ignore [:clojure-lsp/unused-public-var]}
(defn migrate-invoices-payments [_]
[[]])
#_{:clj-kondo/ignore [:clojure-lsp/unused-public-var]}
(defn migrate-invoices-expense-accounts [_]
[[]])
#_{:clj-kondo/ignore [:clojure-lsp/unused-public-var]}
(defn migrate-transactions [_]
[[]])
#_{:clj-kondo/ignore [:clojure-lsp/unused-public-var]}
(defn migrate-users [_]
[[]])