Makes integreat run on datomic cloud

src/clj/auto_ap/datomic/transaction_rules.clj

@@ -1,10 +1,15 @@
 (ns auto-ap.datomic.transaction-rules
   (:require
    [auto-ap.datomic
-    :refer [add-sorter-fields apply-pagination apply-sort-3 merge-query uri]]
+    :refer [add-sorter-fields
+            apply-pagination
+            apply-sort-3
+            conn
+            merge-query
+            pull-many]]
    [auto-ap.graphql.utils :refer [limited-clients]]
    [clojure.string :as str]
-   [datomic.api :as d]))
+   [datomic.client.api :as dc]))
 
 (defn <-datomic [result]
   result)
@@ -72,12 +77,12 @@
 
     
     (cond->> query
-      true (d/query)
+      true (dc/q)
       true (apply-sort-3 args)
       true (apply-pagination args))))
 
 (defn graphql-results [ids db _]
-  (let [results (->> (d/pull-many db default-read ids)
+  (let [results (->> (pull-many db default-read ids)
                      (group-by :db/id))
         transaction-rules (->> ids
                                (map results)
@@ -86,19 +91,19 @@
     transaction-rules))
 
 (defn get-graphql [args]
-  (let [db (d/db (d/connect uri))
+  (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]))
 
 (defn get-by-id [id]
   (->> 
-   (d/pull (d/db (d/connect uri)) default-read id)
+   (dc/pull (dc/db conn) default-read id)
    (<-datomic)))
 
 (defn get-all []
   (mapv first
-        (d/query {:query {:find [(list 'pull '?e default-read )]
-                          :in ['$]
-                          :where ['[?e :transaction-rule/transaction-approval-status]]}
-                  :args [(d/db (d/connect uri))]})))
+        (dc/q {:query {:find  [(list 'pull '?e default-read )]
+                       :in    ['$]
+                       :where ['[?e :transaction-rule/transaction-approval-status]]}
+               :args  [(dc/db conn)]})))