notid/integreat
1
0
Fork 0
Code Issues Pull Requests 2 Actions Packages Projects Releases Wiki Activity

implements import page in new UI

Browse Source
This commit is contained in:
Bryce
2024-05-26 22:28:31 -07:00
parent af8e55803d
commit e43f313ac0
6 changed files with 386 additions and 224 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/clj/auto_ap/ssr/utils.clj
View File

@@ -392,7 +392,7 @@
:error {:explain (mc/explain schema entity)}}))))
(defn schema-enforce-request [{:keys [form-params query-params hx-query-params params] :as request} & {:keys [form-schema hx-schema query-schema route-schema params-schema]}]
(defn schema-enforce-request [{:keys [form-params query-params hx-query-params multipart-params params] :as request} & {:keys [form-schema multipart-schema hx-schema query-schema route-schema params-schema]}]
(let [request (try
(cond-> request
(and (:params request) params-schema)
@@ -408,6 +408,13 @@
route-schema
(:route-params request)
main-transformer))
(and (:multipart-params request) multipart-schema)
(assoc :multipart-params
(mc/coerce
multipart-schema
(:multipart-params request)
main-transformer))
(and form-schema form-params)
(assoc :form-params
@@ -453,10 +460,11 @@
:error (:data (ex-data e))}))))]
request))
(defn wrap-schema-enforce [handler & {:keys [form-schema query-schema route-schema params-schema hx-schema]}]
(defn wrap-schema-enforce [handler & {:keys [form-schema query-schema route-schema params-schema hx-schema multipart-schema]}]
(fn [request]
(handler (schema-enforce-request request
:hx-schema hx-schema
:multipart-schema multipart-schema
:form-schema form-schema
:query-schema query-schema
:route-schema route-schema