如何拦截 Compojure 请求并根据测试执行它？

Question

我有一些路线。

(defroutes some-routes
    (GET "one" [] one)
    (GET "two" [] two))

(defroutes other-routes
  (GET "three" [] three)
  (GET "four" [] four))

(defroutes more-routes
  (GET "five" [] five)
  (GET "six" [] six))


(def all-routes 
  (routes app-routes
          (-> some-routes session/wrap-session my-interceptor)
          (-> more-routes session/wrap-session my-other-interceptor)
          other-routes))

我想拦截some-routes 但不是other-routes 并根据请求执行测试（检查会话中是否存在密钥以及其他一些内容）。我有不止一个。 my-other-interceptor 做同样的事情但不同。

所以我从这个开始：

(defn my-interceptor [handler]
    (fn [request]
      (prn (-> request :session :thing-key))
        (let [thing (-> request :session :thing-key-id)]
          (if (nil? thing)
            (-> (response "Not authenticated"))
            (handler request)))))

如果在会话中设置了:thing-key，这将允许访问处理程序。

不幸的是，这与拥有一组以上的路线并不能很好地配合。此检查应仅适用于 some-routes 而不适用于 other-routes。但是在我们执行处理程序之前，我们不知道路由是否匹配。并且此时处理程序已经执行。我可以重写它以执行handler，然后仅在响应为非零时执行检查，但这意味着我在检查身份验证之前已经执行了一个处理程序。

我关注了this example，出现了问题：

(defn add-app-version-header [handler]
  (fn [request]
    (let [resp (handler request)
      headers (:headers resp)]
      (assoc resp :headers 
        (assoc headers "X-APP-INFO" "MyTerifficApp Version 0.0.1-Alpha")))))

我该怎么做？我想要的是：

• 一种在处理请求之前检查响应（和一些其他逻辑）的方法
• 我可以将其应用于大量路由的处理程序
• 不适用于应用中的所有路由
• 我将有多个这样的处理程序对会话进行不同类型的检查

我该怎么做呢？

Answer 1

拥有单独的处理程序或中间件的方法是使用compojure.core/routes 分解您的路由，并仅在您需要的地方使用您的处理程序。

在你的情况下，如果你把你的other-routes放在第一位，你的问题应该解决了。

如：

(def app-routes
   (compojure.core/routes
       other-routes
       (-> some-routes
           session/wrap-session
           my-interceptor)))

记住组合路由are just ring handlers，您始终可以编写自定义defroutes，仅当路由与请求匹配时才调用您的处理程序，这是make route source code

(defn make-route
  "Returns a function that will only call the handler if the method and Clout
   route match the request."
  [method route handler]
  (if-method method
    (if-route route
      (fn [request]
        (render (handler request) request)))))

这样，如果您有多个条件处理程序，则无需依赖将这些路由放在组合的末尾。

请注意，这种方法是为了让您的路线处理代码保持清洁。

(my-def-routes routes
    (GET "/" request (show-all request))

如果您不想创建自己的 defroutes，只需在内部调用拦截器即可：

(defroutes routes
   (GET "/" request (interceptor request show-all))

(defn interceptor
  [request handler]