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只是登記在規範的註冊表中的關鍵字。所以你根本不需要宏。只需使用一個功能，就容易得多。