Clojure 中的宏，评估和引用

Question

我正在尝试编写一个宏，以便仅在某些环境中有条件地将 compojure 处理程序包装在中间件中。我似乎迷失了评估顺序以及我应该引用什么/如何引用。我目前的尝试如下：

(defn empty-middleware [handler]
  (fn [request] (handler request)))

(defmacro prod [handler middleware]
  (if (= "production" (System/getenv "APP_ENV"))
    (middleware handler)
    (empty-middleware handler)))

期望的用法是：

(in/prod (fn [handler]  (airbrake/wrap-airbrake handler config/airbrake-api-key)))

--- 编辑 ---

更多信息： in/prod 应该在线程宏内部使用，该宏将路由包装在许多中间件中，例如：

(-> handler
    middleware1
    middleware2
    (in/prod (middleware3 middleware-3-param1))

middleware3 和 in/prod 都需要 handler 作为参数。在括号中包装 middleware3 评估不可能将处理程序作为参数传递。因此，我认为需要一个宏。我想出了如何制作/生产一个将中间件3和中间件参数作为参数传递的函数：

(defn prod [handler middleware & middleware-params]
  (if (= "production" (System/getenv "APP_ENV"))
    (apply middleware handler middleware-params)
    handler))

虽然它稍微改变了语法。调用看起来像：

(-> handler
    middleware1
    middleware2
    (in/prod middleware3 middleware-3-param1)

如何才能使用如下语法：

(in/prod (middleware3 middleware-3-param1)

Answer 1

如果您希望应用的中间件也是一个宏，那么您可能需要将它作为一个宏，因此您正遭受宏传染的困扰。在这种情况下，您只需要一个宏，它返回两个可能的 s-expressin 之一以包含在结果代码中。一种是直接调用处理程序，另一种是包装在给定的中间件中。

(defmacro prod [handler middleware]
  (if (= "production" (System/getenv "APP_ENV"))
    `(~middleware ~handler) ;; or (list middleware handler)
     handler))

如果您目前没有遭受宏传染，但无法通过在其他地方删除宏来解决此问题，那么您不需要使用这样的宏，并且您示例中的代码可以简单地用作函数而不是用作一个宏。在这两种情况下都不需要空中间件位。