Merge pull request #20 from district0x/release-1.0.16

Implement ::query! Release 1.0.16
district0x · Mar 12, 2024 · 5fc7137 · 5fc7137
2 parents 2485b52 + 250cbad
commit 5fc7137
Show file tree

Hide file tree

Showing 3 changed files with 22 additions and 2 deletions.
diff --git a/project.clj b/project.clj
@@ -1,4 +1,4 @@
-(defproject district0x/district-ui-graphql "1.0.15-SNAPSHOT"
+(defproject district0x/district-ui-graphql "1.0.16-SNAPSHOT"
   :description "district UI module for GraphQL integration"
   :url "https://github.com/district0x/district-ui-graphql"
   :license {:name "Eclipse Public License"

diff --git a/src/district/ui/graphql/effects.cljs b/src/district/ui/graphql/effects.cljs
@@ -49,7 +49,7 @@
                                                  (utils/merge-in-colls acc res)))
                                              {}
                                              resps)
-                                     (utils/remove-empty-typename-paths))] 
+                                     (utils/remove-empty-typename-paths))]
                          (when on-response
                            (dispatch (vec (concat on-response [res req-opts]))))
                          (if (empty? (:errors res))

diff --git a/src/district/ui/graphql/events.cljs b/src/district/ui/graphql/events.cljs
@@ -82,6 +82,26 @@
                             :dispatch-to [::query (dissoc opts :refetch-on :refetch-id)]}})))))
 
 
+(reg-event-fx
+  ::query!
+  interceptors
+  (fn [{:keys [:db]} [{:keys [:queries :query :variables :on-success :on-error] :as opts}]]
+    (let [query (cond->> query
+                        (some? queries) (merge-with into {:queries queries})
+                        true (merge {:operation {:operation/type :query
+                                                 :operation/name :a-query}}))
+          {:keys [:url :kw->gql-name :gql-name->kw :query-middlewares :fetcher :schema]} (queries/config db)
+          {:keys [:query :query-str]} (utils/parse-query query {:kw->gql-name kw->gql-name})]
+
+      {::effects/fetch {:fetcher (queries/config db :fetcher)
+                        :query query
+                        :variables variables
+                        :on-success [::mutation-success {:on-success on-success}]
+                        :on-error [::mutation-error {:on-error on-error}]
+                        :gql-name->kw gql-name->kw
+                        :query-middlewares query-middlewares
+                        :schema schema}})))
+
 (reg-event-fx
   ::mutation
   interceptors