clojure：如何将名称空间作为宏参数传递？

Question

我正在尝试使用clojure.spec，我想我会编写一个宏来节省一些繁琐的输入： - ）

我试图这样做：

(defmacro nup
    [pns pname punit]
    `(s/def :~pns/name (s/and #(string? %) #(= % ~pname)))
    `(s/def :~pns/unit (s/and #(string? %) #(= % ~punit))))

我已经尝试了多个版本，但我无法使名称空间替换工作。有任何想法吗？ 毋庸置疑，宏不是我强大的一面。

Answer 1

你去了：

(defmacro nup
  [pns pname punit]
  `(do
    (s/def ~(keyword (str pns) "name") (s/and #(string? %) #(= % ~pname)))
    (s/def ~(keyword (str pns) "unit") (s/and #(string? %) #(= % ~punit)))))

(macroexpand-1
  '(nup ab :foo :bar))

但s/def只是在规范的注册表中注册关键字。所以你根本不需要宏。只需使用一个功能，就容易多了。