clojure/ring/jetty:我正在使用> lein ring server.如何配置实例化的jetty实例？

Question

当我直接调用jetty处理程序时,我能够传递一个这样的配置器:

(def header-buffer-size 8388608)
(defn start [port]
  (ring/run-jetty
   (var app)
   {:port port
    :join? false
    :host "127.0.0.1"
    :configurator
    (fn [jetty]
      (doseq [connector (.getConnectors jetty)]
        (.setHeaderBufferSize connector header-buffer-size)))}))

我必须这样做,因为我在发布时不断收到FULL HEAD错误.现在我重构了直接使用lein ring server的东西,它从命令行调用.

> lein ring server

这使用了我的project.clj中指定的一些配置:

:ring {:handler caribou.api.core/app
       :servlet-name "caribou-api"
       :init caribou.api.core/init
       :port 33443}

这很好用,但现在我又得到了全头问题.所以我试着在那里添加一个配置器:

:ring {:handler caribou.api.core/app
       :servlet-name "caribou-api"
       :init caribou.api.core/init
       :configurator
       (fn [jetty]
         (doseq [connector (.getConnectors jetty)]
           (.setHeaderBufferSize connector 8388608)))
       :port 33443})

这个堆栈跟踪失败了:

Exception in thread "main" java.lang.ClassCastException: 
clojure.lang.PersistentList cannot be cast to clojure.lang.IFn
  at ring.adapter.jetty$run_jetty.invoke(jetty.clj:66)
  at ring.server.standalone$serve$fn__833.invoke(standalone.clj:78)
  at ring.server.standalone$try_port.invoke(standalone.clj:12)
  at ring.server.standalone$serve.doInvoke(standalone.clj:75)
  at clojure.lang.RestFn.invoke(RestFn.java:423)
  at ring.server.leiningen$serve.invoke(leiningen.clj:20)

我认为这与将函数直接放在地图中的方式有​​关,所以我在项目之外(在caribou.api.core中)定义了它并尝试引用它,就像我在其他地方定义的其余函数一样:

;; in caribou/api/core.clj
(def header-buffer-size 8388608)
(defn full-head-avoidance
  [jetty]
  (doseq [connector (.getConnectors jetty)]
    (.setHeaderBufferSize connector header-buffer-size)))

;; in project.clj
:ring {:handler caribou.api.core/app
       :servlet-name "caribou-api"
       :init caribou.api.core/init
       :configurator caribou.api.core/full-head-avoidance
       :port 33443})

这会旋转应用程序,但发布时仍然会收到413:FULL HEAD错误.有任何想法吗？谢谢!

Answer 1

defproject默认情况下，不会评估表单内写入的内容，但您可以在需要时使用~(unquote) in ：defproject

(defproject foo "1.2.3"
  ...
  :some-fn-key ~(fn [& args] ...))

在这种特殊情况下，您需要取消引用fn定义配置器函数的表单（如果不取消引用，则将其用作包含一堆符号的列表，而不是编译成函数）。

或者，您可以在表单外部定义配置器defproject，并像第二种方法一样在内部引用其名称defproject，但随后您需要取消对内部名称的引号defproject- 否则它将被视为符号。注意。在后一种情况下，不会产生异常，因为符号实际上是可调用的并且接受任意参数（但只有nil在使用映射或集合以外的其他东西调用时才返回；对于映射或集合，它们在参数中查找自身）。