67 lines
2.4 KiB
Clojure
67 lines
2.4 KiB
Clojure
(ns auto-ap.datomic.vendors
|
|
(:require [datomic.api :as d]
|
|
[auto-ap.graphql.utils :refer [limited-clients]]
|
|
[auto-ap.datomic :refer [uri]]))
|
|
(defn cleanse [id vendor]
|
|
(let [clients (if-let [clients (limited-clients id)]
|
|
(set (map :db/id clients))
|
|
nil)]
|
|
(if clients
|
|
(-> vendor
|
|
(update :vendor/account-overrides (fn [ao] (filter #(clients (:db/id (:vendor-account-override/client %))) ao)))
|
|
(update :vendor/terms-overrides (fn [to] (filter #(clients (:db/id (:vendor-terms-override/client %))) to))))
|
|
vendor)))
|
|
|
|
(def default-read
|
|
'[* {:vendor/account-overrides [* {:vendor-account-override/client [:client/name :db/id]
|
|
:vendor-account-override/account [:account/name :account/numeric-code :db/id]}]
|
|
:vendor/terms-overrides [* {:vendor-terms-override/client [:client/name :db/id]}]}])
|
|
|
|
(defn get-graphql [args]
|
|
(->> (cond-> {:query {:find [(list 'pull '?e default-read)]
|
|
:in ['$]
|
|
:where ['[?e :vendor/name]]}
|
|
:args [(d/db (d/connect uri))]})
|
|
(d/query)
|
|
(map first)
|
|
(map #(cleanse (:id args) %))))
|
|
|
|
(defn get-by-id [id]
|
|
|
|
(->> (d/q '[:find (pull ?e [*
|
|
{:default-account [:account/name :db/id :account/location]
|
|
:vendor/account-overrides [* {:vendor-account-override/client [:client/name :db/id]
|
|
:vendor-account-override/account [:account/name :account/numeric-code :db/id]}]
|
|
:vendor/terms-overrides [* {:vendor-terms-override/client [:client/name :db/id]}]}])
|
|
:in $ ?e
|
|
:where [?e]]
|
|
(d/db (d/connect uri))
|
|
id)
|
|
(map first)
|
|
(first)))
|
|
|
|
|
|
(defn terms-for-client-id [vendor client-id]
|
|
(or
|
|
(->>
|
|
(filter
|
|
(fn [to]
|
|
(= (:db/id (:vendor-terms-override/client to))
|
|
client-id))
|
|
(:vendor/terms-overrides vendor))
|
|
first
|
|
:vendor-terms-override/terms)
|
|
(:vendor/terms vendor)))
|
|
|
|
(defn account-for-client-id [vendor client-id]
|
|
(or
|
|
(->>
|
|
(filter
|
|
(fn [to]
|
|
(= (:db/id (:vendor-account-override/client to))
|
|
client-id))
|
|
(:vendor/account-overrides vendor))
|
|
first
|
|
:vendor-account-override/account)
|
|
(:vendor/default-account vendor)))
|