如何在-main函数上重新加载(停止并启动) http-kit“挂载状态”

Question

使用安装库，如何在-main函数上重新加载(停止并启动) http-kit“挂载状态”？

我目前的代码是：

(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)}}))

因此，当我“执行”所有操作时，但是每当我更改一个文件，并且http服务器停止时，命令就停止。目前，我正在做“way true；do lein run；do”才能工作，所以我考虑向-main函数添加一个无限循环，但这似乎不是正确的方法。

我该怎么做？

Answer 1

所以我遇到了几个问题：

• 我不明白现在我不需要使用lein，但是我只需要做lein，然后从那里启动服务器。这样就避免了重新启动问题。
• 另一个是我误用了开始状态而不是配置状态。

您可以看到与库这里的作者讨论这个问题。

Answer 2

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

来自自述山：

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

所以试着做这样的事情：

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

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

我希望我已经正确地理解了你的问题，这就是你想要的。

我也可以建议，如果你想要快速起床和运行，那么有各种模板的网页应用程序项目的莱宁根。例如，卢米努斯项目。您可以向+http-kit命令传递一个lein new luminus myapp参数，这将为您正确地连接一个应用程序。然后，您可以去阅读生成的代码，并了解它们是如何结合在一起的。