Namespaced关键字使JSON规范无效

Question

I am using Clojure.spec to validate the structure of JSON (and later conform it into another format):

(s/def ::yes string?)
(s/def ::my-test (s/keys :req [::yes]))

(def my-json (json/read-json "{\"yes\": \"yes\"}")) ; => {:yes "yes"}

(s/valid? ::my-test my-json)       ; => false
(s/valid? ::my-test {::yes "yes"}) ; => true

(s/explain ::my-test {:yes "yes"})
; => val: {:yes "yes"} fails spec: :spec.core/my-test predicate: 
;         (contains? % :spec.core/yes)

(Here s refers to the clojure.spec namespace and json to clojure.data.json .)

As can be seen above the s/valid? fails for the parsed JSON because the keywords are not namespaced.

How can I adjust the code so that the JSON is seen as valid?

Answer 1

You can do the following which will work:

(def my-json (json/read-str "{\"yes\": \"yes\"}" :key-fn #(keyword (str *ns*) %)))

I'm not sure if this is the right/idiomatic way to handle it - I guess it depends on the case.