Uso de macros en Clojure

Question

Trato específicamente de generar la plantilla para que las funciones crud funcionen con el almacén de datos de Google App Engine utilizando appengine-magic en Clojure. Tengo dificultades para generar valores a partir de un modelo que he reproducido a continuación.

(def *model* {:users [{:name "Adam" 
         :email "adam@gmail.com" 
         :registered-on "07-05-2011"} 
         {:name "Greg" 
         :email "gregory@gmail.com" 
         :registered-on "11-05-2011"}] 
       :post [{:title "A" 
         :authour "Adam"} 
        {:title "B" 
         :author "Greg"}]}) 

Soy bastante nuevo a AppEngine-magia, sino que proporciona un defentity que le permite definir las entidades que se pueden poner en el almacén de datos y guardar! que le permite guardar entidades predefinidas en el almacén de datos.

Éstos toman la forma de:

(ds/defentity Post [title author]) 
(ds/save! (Post. title author)) 

Ahora acaba de empezar con he definido:

(defn list-entities [model] 
    "Takes a representation of the model and lists the entities in preparation for generating defentities" 
    (interleave (vec (map first (partition 1 (map (comp symbol capitalize #(str % ".") name) (keys model))))) 
    (map vec (map keys (map first (vals model)))))) 

Llamando con:

(list-entities *model*) 

Salidas:

(Users. [:name :email :registered-on] Post. [:title :author]) 

Ahora estoy teniendo dificultades para definir gen-entidades que tomarán el resultado anterior y llamo repetidamente a ds/defentities para definir tantas entidades como requiera mi modelo.

(defmacro gen-entities [entity fields] 
    `(ds/defentity 'entity 'fields)) 

Además, de ninguna manera estoy seguro de que este sea un modo razonable de resolver este problema. Todavía soy muy nuevo en macros y probablemente cometo varios errores. Cualquier ayuda/claridad sería apreciada.

NOTA:

Ese modelo me he dado cuenta está mal diseñado, la de abajo es mucho mejor:

(def *model* {:users [:name :email :registered-on] 
       :post [:title :author]}) 

Sin embargo es más complejo en términos de escribir una macro así que voy a dejar como es.

Answer 1

Creo que se requiere una macro, porque defentity parece definir un tipo.

(defmacro gen-entities 
    [model] 
    `(do 
    ~@(for [[entity-kw values] model] 
     (let [entity-sym (-> entity-kw name capitalize symbol) 
       fields  (map (comp symbol name) (keys (first values)))] 
      `(ds/defentity ~entity-sym [~@fields]))))) 

No tiene que manipular las teclas y los valores entre sí, solo para unirlos de nuevo con intercalación. El mapeo sobre un mapa le dará la clave y el valor correspondiente de una vez.

user=> (macroexpand-1 `(gen-entities ~model)) 
(do 
    (ds/defentity Users [name registered-on email]) 
    (ds/defentity Post [title authour])) 

Nota: esto no funcionará con el modelo almacenado en un Var. Deberá especificar el modelo en la llamada al gen-entities.

user=> (macroexpand-1 '(gen-entities model)) 
(
#<IllegalArgumentException java.lang.IllegalArgumentException: Don't know how to create ISeq from: clojure.lang.Symbol>