Запрос на изменение изображения макроса макроса

Question

Попытка сделать макрос деконструировать параметры с карты запроса кольца с помощью макроса. Он работает нормально:

(defmacro defpage [fname args & body] 
    `(defn ~fname [{{:keys ~args} :params}] 
    ~@body)) 

(defpage h-projects [name description] 
    ; some code using name and description... 
    ) 

(defroutes app-routes 
    (ANY "/p/" [] h-projects) 

Но, я хотел бы иметь возможность использовать карту запрос непосредственно в функции ч-проектов:

(defpage h-projects [name description] 
    ; some code using name and description, and also 
    ; the request map. 
    ) 

Как defpage макрос может быть изменен, чтобы сделать запрос карта доступна для функции h-projects?

Я знаю, что могу изменить параметры функции h-projects, но я хотел бы сохранить простой вектор с параметрами, а не с глубокой вложенной деконструирующей картой.

Answer 1

You can destructure with the :as keyword to get a handle on the entire destructured map. Для этого в макросе я рекомендую вам вход для того, что имя должно быть:

(defmacro defpage [fname args map-name & body] 
    `(defn ~fname [{{:keys ~args :as ~map-name} :params}] 
    ~@body)) 

но вы также можете просто определить «магическое имя», что все defpage сек доля. Этот вид потеряет ясность, потому что, когда вы читаете defpage, похоже, что имя выходит из ниоткуда.

(defmacro defpage [fname args & body] 
    `(defn ~fname [{{:keys ~args :as ~'my-magic-name} :params}] 
    ~@body)) 

~ 'позволяет использовать пространство имен.