Merge branch 'try-tailwind'

src/clj/auto_ap/datomic/reports.clj

@@ -12,6 +12,8 @@
    [clj-time.coerce :as c]
    [datomic.api :as dc]))
 
+(def default-read '[:db/id :report/client :report/created :report/url :report/name :report/creator])
+
 (defn raw-graphql-ids [db args]
   (let [query (cond-> {:query {:find []
                                :in ['$ ]
@@ -43,8 +45,7 @@
       (apply-pagination args))))
 
 (defn graphql-results [ids db args]
-  (let [results (->> (pull-many db '[:db/id :report/client :report/created :report/url :report/name :report/creator]
-                                  ids)
+  (let [results (->> (pull-many db default-read ids)
                      (map #(update % :report/created c/from-date))
                      (group-by :db/id))]
     (->> ids
@@ -63,8 +64,3 @@
     
     [(->> (graphql-results ids-to-retrieve db args))
      matching-count]))
-
-
-
-
-