Macro de Clojure - Définir une liaison dont le nom est composé à partir d'un argument

Question

OK, je souhaite écrire une macro Clojure qui définit une struct-map et permet à l'appelant de spécifier des types pour chaque champ.

La signature ressemblera à ceci:

(defmodel category :id Integer :name String) 

Ce que cela fait est qu'il crée une catégorie appelée struct-map, et aussi créer un *category-meta* de liaison, qui est une carte {:id Integer :name String}

Voici ma macro pour atteindre cela:

(defmacro defmodel [name & field-spec] 
    `(let [fields# (take-nth 2 ~@field-spec)] 
     (defstruct ~name fields#) 
     (def *~name-meta* (reduce #(assoc %1 (first %2) (last %2))) (partition 2 ~@field-spec)))) 

Cependant, le problème est, je ne peux pas définir une liaison dont le nom est composé de f un autre nom. Fondamentalement, (def *~name-meta* ...) ne fonctionne pas.

Comment puis-je y parvenir?

Merci.

Answer 1

(mis à jour avec une version déboguée de la macro à partir du texte de la question.)

Cela devrait fonctionner comme indiqué:

(defmacro defmodel [name & field-spec] 
    `(do (defstruct ~name ~@(take-nth 2 field-spec)) 
     (def ~(symbol (str "*" name "-meta*")) 
     (reduce #(assoc %1 (first %2) (last %2)) 
       {} 
       (partition 2 '~field-spec))))) 

La réponse à la question principale est d'utiliser ~(symbol (str "*" name "-meta*")) en place de *~name-meta*. ~ désintègre l'expression suivante sous une forme de syntaxe, en injectant sa valeur de retour dans l'emplacement approprié de la structure de liste donnée.

D'autres modifications ont été nécessaires - en particulier, defstruct exige que les clés lui soient fournies en tant qu'arguments séparés, plutôt qu'un seul seq (ou le nom d'une variable contenant un tel seq), reduce a besoin de la graine explicite Par ailleurs, sauf si vous avez besoin de vous en tenir à Clojure 1.1, vous pouvez utiliser le defrecord de 1.2 plutôt que le defstruct - en fait, ce dernier est obsolète dans 1.2.