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 просто регистрирует ключевое слово в реестре спецификации в. Так что вам совсем не нужен макрос. Просто используйте функцию намного проще.