Clojure规范强制嵌套映射值

Question

我这样强制转换一个地图（Map）的值：

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

(defn x-integer? [x]
  (cond
    (integer? x) x
    (string? x) (try
                  (Integer/parseInt x)
                  (catch Exception e
                    :clojure.spec/invalid))
    :else :clojure.spec/invalid))

(s/def ::port (s/conformer x-integer?))

(s/def ::config (s/keys :req [::port]))

(s/conform ::config {::port "12345"}) ;;=> #:my.ns{:port "12345"}

然而，我不知道如何使用下面的地图来做同样的事情：

(s/conform ::config {::nested-data {:port "12345"}}) ;;=> something like that maybe ? #:my.ns/nested-data{:port 12345}

如何定义::config？ 另外，使用 {::nested-data {::port "12345"}} 是否更好？

- nha

---

看起来你缺少一个使用x-integer的::port规范？这个例子似乎不完整。 - Alex Miller

@AlexMiller 你是对的，问题已经编辑过了。 - nha

Answer 1

(s/def ::port (s/conformer x-integer?))
(s/def ::nested-data (s/keys :req-un [::port]))
(s/def ::config (s/keys :req [::nested-data]))
(s/conform ::config {::nested-data {:port "12345"}})
;;=> #:spec.examples.guide{:nested-data {:port 12345}}

- Alex Miller