really improved vendor dialog code.

This commit is contained in:
Bryce Covert
2020-04-18 09:16:32 -07:00
parent 9204e18b98
commit ec10e6b823
13 changed files with 211 additions and 335 deletions

View File

@@ -137,6 +137,7 @@
:graphql
(fn [{:keys [query on-success on-error token variables query-obj]}]
(go
(println on-error)
(let [headers (if token
{"Authorization" (str "Token " token)}
{})
@@ -155,12 +156,12 @@
:body (when = (:post method) query)
:url (str "/api/graphql?query=" (when (= :get method) (js/encodeURIComponent query))
"&variables=" (pr-str (or variables {})))}))]
(cond
(= (:status response) 401)
(re-frame/dispatch [:auto-ap.events/logout "Your session has expired. Please log in again."])
(>= (:status response) 400)
(when on-error
(->> response