Spec Serialization

spec-serialization.clj

(require '[clojure.spec :as sp])

(defn dependencies [spec]
  (let [deps (atom [])]
    (clojure.walk/prewalk
     (fn [x]
       (if ((sp/registry) x)
         (do (swap! deps conj x)
             (sp/form x))
         x))
     (sp/form spec))
    (reverse @deps)))

(defn spec-def-exps [spec]
  (->> (for [sdef (conj (vec (dependencies spec)) spec)
             :when (= (namespace sdef) (namespace spec))]
         {sdef (sp/form sdef)})
       (into [])))

(comment
  "Usage"

  (sp/def ::age number?)
  (sp/def ::first-name string?)
  (sp/def ::last-name string?)
  (sp/def ::name (sp/keys :req-un [::first-name ::last-name]))
  (sp/def ::user (sp/keys :req-un [::name ::age]))

  (spec-def-exps ::user)

  [#:my.namespace{:age clojure.core/number?}
   #:my.namespace{:last-name clojure.core/string?}
   #:my.namespace{:first-name clojure.core/string?}
   #:my.namespace{:name
                  (clojure.spec/keys
                   :req-un
                   [:my.namespace/first-name
                    :my.namespace/last-name])}
   #:my.namespace{:user
                  (clojure.spec/keys
                   :req-un
                   [:my.namespace/name
                    :my.namespace/age])}])