This commit is contained in:
2023-10-12 23:35:33 -07:00
parent 1e4dabfa07
commit b61e0df108
2 changed files with 21 additions and 3 deletions

View File

@@ -10,7 +10,7 @@
query2]]
[auto-ap.query-params :as query-params]
[auto-ap.routes.auth :as auth]
[auto-ap.routes.utils :refer [wrap-admin]]
[auto-ap.routes.utils :refer [wrap-admin wrap-client-redirect-unauthenticated]]
[auto-ap.ssr-routes :as ssr-routes]
[auto-ap.ssr.components :as com]
[auto-ap.ssr.grid-page-helper :as helper]
@@ -22,7 +22,8 @@
[clojure.string :as str]
[config.core :refer [env]]
[datomic.api :as dc]
[malli.core :as mc]))
[malli.core :as mc]
[malli.transform :as mt2]))
(defn filters [request]
[:form {"hx-trigger" "change delay:500ms, keyup changed from:.hot-filter delay:1000ms"
@@ -323,6 +324,23 @@
[:div])]]))))
(def form-schema
(mc/schema
[:map
[:id nat-int?]
[:client-ids [:vector nat-int?]]
[:role [:enum :user-role/admin :user-role/test]]]))
#_(mc/coerce
form-schema
{"id" "1230812"
"client-ids" ["123"]
"role" "admin"}
mt2/json-transformer)
#_(mt2/coerck)
(def key->handler
{:users (wrap-admin (helper/page-route grid-page))
:user-table (wrap-admin (helper/table-route grid-page))