+
+
+
+
+
+
+
+
+
+
+
+
+ Clojure.spec Coercion
+The clojure.spec library specifies the structure of data, validates or destructures it, and can generate data based on the spec.
+NOTE: Currently, clojure.spec doesn't support runtime transformations via conforming, so one needs to wrap all specs into Spec Records to get the coercion working.
(require '[reitit.coercion.spec])
+(require '[reitit.coercion :as coercion])
+(require '[spec-tools.spec :as spec])
+(require '[clojure.spec.alpha :as s])
+(require '[reitit.core :as r])
+
+;; need to wrap the primitives!
+(s/def ::company spec/string?)
+(s/def ::user-id spec/int?)
+(s/def ::path-params (s/keys :req-un [::company ::user-id]))
+
+(def router
+ (r/router
+ ["/:company/users/:user-id" {:name ::user-view
+ :coercion reitit.coercion.spec/coercion
+ :parameters {:path ::path-params}}]
+ {:compile coercion/compile-request-coercers}))
+
+(defn route-and-coerce! [path]
+ (if-let [match (r/match-by-path router path)]
+ (assoc match :parameters (coercion/coerce! match))))
+Successful coercion:
+(route-and-coerce! "/metosin/users/123")
+; #Match{:template "/:company/users/:user-id",
+; :data {:name :user/user-view,
+; :coercion #SpecCoercion{...}
+; :parameters {:path ::path-params}},
+; :result {:path #object[reitit.coercion$request_coercer$]},
+; :params {:company "metosin", :user-id "123"},
+; :parameters {:path {:company "metosin", :user-id 123}}
+; :path "/metosin/users/123"}
+Failing coercion:
+(route-and-coerce! "/metosin/users/ikitommi")
+; => ExceptionInfo Request coercion failed...
+
+
+
+
+
+ results matching ""
+
+
+
+ 
