С помощью squiresuzuki
в Clojure Reddit, который указал мне, чтобы я читал о промежуточном программном обеспечении, я заставил этот API работать, создав промежуточное программное обеспечение, которое добавляет необходимые заголовки для разрешения запросов Cross Origin.
Вфайл middleware.clj
Я изменил следующее:
(defn wrap-cors
"Wrap the server response with new headers to allow Cross Origin."
[handler]
(fn [request]
(let [response (handler request)]
(-> response
(assoc-in [:headers "Access-Control-Allow-Origin"] "http://localhost:3449")
(assoc-in [:headers "Access-Control-Allow-Headers"] "x-requested-with, content-type")
(assoc-in [:headers "Access-Control-Allow-Methods"] "*")))))
(defn wrap-base [handler]
(-> ((:middleware defaults) handler)
(wrap-cors) ; enable CORS
(wrap-defaults
(-> site-defaults
(assoc-in [:security :anti-forgery] false)
(assoc-in [:session :store] (ttl-memory-store (* 60 30)))))))