Question

使用mount library，如何在-main函数上重新加载（停止和启动）http-kit“mount state”？

我目前的代码是：

(defstate server-config :start {:port 7890 :join? false})
(defn start-server [server-config]
  (when-let [server (run-server myserv-ring-handler server-config)]
    (println "Server has started!")
    server))

(defstate myserv-server :start (start-server server-config)
          :stop  (myserv-server :timeout 100))

(defn system-port [args]
  (Integer/parseInt
    (or (System/getenv "PORT")
        (first args)
        "7890")))

(defn -main [& args]
  (mount/start-with-states
    {#'myserv/server-config
     {:start #(array-map :port (system-port args)
                         :join? false)}}))

所以当我“lein run”一切正常时，但每当我更改文件，并且http-kit服务器停止时，命令就会停止。目前我正在做“正确;做lein run; done”工作，所以我考虑过向-main函数添加一个无限循环，但它不觉得这是正确的方法。 / p>

我该怎么做？

Answer 1

我建议您向http服务器defstate添加一些元数据。

从装载自述文件：

如果在重新加载时无需对运行状态进行任何操作重新编译/重新设置，将:on-reload设置为:noop:。

所以尝试这样的事情：

(defstate ^{:on-reload :noop}
          myserv-server
          :start (start-server server-config)
          :stop  (my-stop-func myserv-server))

这意味着当您更改文件时，将重新加载受影响的代码，但http服务器将继续运行。

我希望我能正确理解你的问题，这就是你想要的。

我是否还可以建议，如果您想快速启动并运行，那么Leiningen有各种模板化的Web应用程序项目。例如，Luminus项目。您可以将+http-kit参数传递给lein new luminus myapp命令，这将为您正确连接应用程序。然后，您可以阅读生成的代码并了解它们如何组合在一起。

Answer 2

所以我有几个不同的问题：

我不明白现在我不需要使用lein run，而是我可以做lein repl并从那里启动服务器。这样就避免了重启问题。
另一个是我误用了启动状态而不是配置状态。

您可以与图书馆here的作者讨论此问题。

如何在-main函数上重新加载（停止和启动）http-kit“mount state”

2 个答案: