如何将 CORS 添加到 compojure-api 应用程序？

如何将 CORS 添加到此代码片段？

(def app
    (api
        {:swagger {:ui   "/docs"
                   :spec "/swagger.json"}}

       (GET "/route-a" [] "a")
       (GET "/route-b" [] "b")
       (GET "/route-c" [] "c")))

我想用https://github.com/r0man/ring-cors https://github.com/r0man/ring-cors并尝试过这个，但它似乎没有做任何事情。我希望看到响应标头包含 Access-Control-Allow-Origin 但它丢失了。

(-> (api
   {:swagger {:ui   "/docs"
              :spec "/swagger.json"}}

   (GET "/route-a" [] "a")
   (GET "/route-b" [] "b")
   (GET "/route-c" [] "c"))

  (wrap-cors :access-control-allow-origin #"http://localhost:81"
             :access-control-allow-headers ["Origin" "X-Requested-With"
                                        "Content-Type" "Accept"]
             :access-control-allow-methods [:get :put :post :delete :options]))

仅当请求具有特定于 CORS 的响应标头时，才会返回Origin与指定正则表达式匹配的标头（当使用XMLHttpRequest在浏览器中，会自动添加 Origin 标头）。

如果你试试：

curl -vH "Origin: http://localhost:81" localhost:3000/route-a

（假设您的 API 在端口 3000 上可用），您将看到添加了必要的响应标头。 AJAX 请求来自http://localhost:81应该也有效。