66 lines
2.5 KiB
Clojure
66 lines
2.5 KiB
Clojure
(ns auto-ap.datomic.reports
|
|
(:require
|
|
[auto-ap.datomic
|
|
:refer [add-sorter-fields apply-pagination apply-sort-3 conn merge-query]]
|
|
[auto-ap.graphql.utils :refer [can-see-client? limited-clients]]
|
|
[clj-time.coerce :as c]
|
|
[datomic.api :as d]))
|
|
|
|
(defn raw-graphql-ids [db args]
|
|
(let [query (cond-> {:query {:find []
|
|
:in ['$ ]
|
|
:where []}
|
|
:args [db]}
|
|
|
|
|
|
(:client-id args)
|
|
(merge-query {:query {:in ['?client-id]
|
|
:where ['[?e :report/client ?client-id]]}
|
|
:args [(:client-id args)]})
|
|
|
|
(limited-clients (:id args))
|
|
(merge-query {:query {:in ['[?xx ...]]
|
|
:where ['[?e :report/client ?xx]]}
|
|
:args [(set (map :db/id (limited-clients (:id args))))]})
|
|
(:sort args) (add-sorter-fields {"client" ['[?e :report/client ?c]
|
|
'[?c :client/name ?sort-client]]
|
|
"created" ['[?e :report/created ?sort-created]]
|
|
"creator" ['[?e :report/creator ?sort-creator]]
|
|
"name" ['[?e :report/name ?sort-name]
|
|
]}
|
|
args)
|
|
|
|
true
|
|
(merge-query {:query {:find ['?sort-default '?e] :where ['[?e :report/created ?sort-default]]}}))]
|
|
(->> query
|
|
(d/query)
|
|
(apply-sort-3 (update args :sort conj {:sort-key "default-2" :asc true}))
|
|
(apply-pagination args))))
|
|
|
|
(defn graphql-results [ids db args]
|
|
(let [results (->> (d/pull-many db '[:db/id :report/client :report/created :report/url :report/name :report/creator]
|
|
ids)
|
|
(map #(update % :report/created c/from-date))
|
|
(group-by :db/id))]
|
|
(->> ids
|
|
(map results)
|
|
(filter identity)
|
|
|
|
(map first)
|
|
(filter (fn [r]
|
|
(every?
|
|
#(can-see-client? (:id args) %)
|
|
(map :db/id (:report/client r))))))))
|
|
|
|
(defn get-graphql [args]
|
|
(let [db (d/db conn)
|
|
{ids-to-retrieve :ids matching-count :count} (raw-graphql-ids db args)]
|
|
|
|
[(->> (graphql-results ids-to-retrieve db args))
|
|
matching-count]))
|
|
|
|
|
|
|
|
|
|
|