(require '[spec-tools.visitor :as visitor])
An utility to walk over and transform specs using the Visitor-pattern. Main entry point is the spec-tools.visitor/visit
function, extendable via spec-tools.visitor/visit-spec
multimethod.
Both the Spec to JSON Schema and Spec to Swagger Schema conversions are implemented using the visitor.
Example to collect all spec names & forms:
(require '[clojure.spec.alpha :as s])
(require '[spec-tools.visitor :as visitor])
(s/def ::id string?)
(s/def ::name string?)
(s/def ::street string?)
(s/def ::city #{:tre :hki})
(s/def ::address (s/keys :req-un [::street ::city]))
(s/def ::user (s/keys :req-un [::id ::name ::address]))
;; visitor to recursively collect all registered spec forms
(let [specs (atom {})]
(visitor/visit
::user
(fn [_ spec _ _]
(if-let [s (s/get-spec spec)]
(swap! specs assoc spec (s/form s))
@specs))))
;#:user{:id clojure.core/string?,
; :name clojure.core/string?,
; :street clojure.core/string?,
; :city #{:tre :hki},
; :address (clojure.spec.alpha/keys :req-un [:user/street :user/city]),
; :user (clojure.spec.alpha/keys :req-un [:user/id :user/name :user/address])}
Can you improve this documentation?Edit on GitHub
cljdoc is a website building & hosting documentation for Clojure/Script libraries
× close