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

making ssr pages incorporate auth.

Browse Source
This commit is contained in:
Bryce
2023-09-06 14:52:22 -07:00
parent 039f430cd9
commit fd7c0b62e7
5 changed files with 57 additions and 46 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
src/clj/auto_ap/ssr/company/plaid.clj
View File

@@ -9,7 +9,8 @@
pull-attr
pull-many-by-id
query2]]
[auto-ap.graphql.utils :refer [assert-can-see-client limited-clients]]
[auto-ap.graphql.utils
:refer [assert-can-see-client extract-client-ids]]
[auto-ap.logging :as alog]
[auto-ap.plaid.core :as p]
[auto-ap.ssr-routes :as ssr-routes]
@@ -36,20 +37,20 @@
:plaid-account/name]}])
(defn raw-graphql-ids [db args]
(let [query (cond-> {:query {:find []
:in ['$]
:where []}
:args [db]}
(println "ARGS " args)
(let [valid-clients (extract-client-ids (:clients args)
(:client-id args)
(when (:client-code args)
[:client/code (:client-code args)]))
query (cond-> {:query {:find []
:in ['$ '[?xx ...]]
:where ['[?e :plaid-item/client ?xx]]}
:args [db valid-clients]}
(:sort args) (add-sorter-fields {"external-id" ['[?e :plaid-item/external-id ?sort-external-id]]
"status" ['[?e :plaid-item/status ?sort-status]]}
args)
(:clients args)
(merge-query {:query {:in ['[?xx ...]]
:where ['[?e :plaid-item/client ?xx]]}
:args [ (set (map :db/id (:clients args)))]})
(:client-id args)
(merge-query {:query {:in '[?client-id]
:where ['[?e :plaid-item/client ?client-id]]}
@@ -142,7 +143,7 @@
:nav (com/company-aside-nav)
:id-fn :db/id
:fetch-page (fn [user args]
(get-page (assoc args :id user)))
(get-page (assoc args :id user :clients (:clients (:request args)))))
:breadcrumbs [[:a {:href (bidi/path-for ssr-routes/only-routes
:company)}
"My Company"]