Sets up impersonate for ssr pages too

src/clj/auto_ap/datomic/reports.clj

@@ -1,68 +0,0 @@
-(ns auto-ap.datomic.reports
-  (:require
-   [auto-ap.datomic
-    :refer [add-sorter-fields
-            apply-pagination
-            apply-sort-3
-            conn
-            merge-query
-            pull-many
-            query2]]
-   [auto-ap.graphql.utils :refer [can-see-client? extract-client-ids]]
-   [clj-time.coerce :as c]
-   [datomic.api :as dc]
-   [clojure.set :as set]))
-
-(def default-read '[:db/id :report/client :report/created :report/url :report/name :report/creator])
-
-(defn raw-graphql-ids [db 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 '[$ [?c ...]]
-                               :where '[[?e :report/client ?c]]}
-                       :args [db valid-clients]} 
-
-                
-                (: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]]}}))]
-    (->> (query2 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 (->> (pull-many db default-read ids)
-                     (map #(update % :report/created c/from-date))
-                     (group-by :db/id))
-        valid-clients (extract-client-ids (:clients args)
-                                          (:client-id args)
-                                          (when (:client-code args)
-                                            [:client/code (:client-code args)]))]
-    (->> ids
-         (map results)
-         (filter identity)
-         
-         (map first)
-         (filter (fn [r]
-                   (let [used-clients (set (map :db/id (:report/client r)))]
-                     (= used-clients
-                        (set/intersection valid-clients
-                                          used-clients))))))))
-
-(defn get-graphql [args]
-  (let [db (dc/db conn)
-        {ids-to-retrieve :ids matching-count :count} (raw-graphql-ids db args)]
-    
-    [(->> (graphql-results ids-to-retrieve db args))
-     matching-count]))