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

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 服务器停止时，命令就会停止。目前我正在做 "while true; do lein run; done" 工作，所以我考虑过在 -main 函数中添加一个无限循环，但感觉这不是正确的方法。

我应该怎么做？

Answer 1

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

来自挂载自述文件：

In case nothing needs to be done to a running state on reload / recompile / redef, set :on-reload to :noop:.

所以尝试这样的事情：

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

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

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

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

Answer 2

所以我遇到了几个不同的问题：

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

你可以看到与图书馆作者的讨论here。

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

How to reload (stop and start) an http-kit "mount state" on a -main function

clojure

http-kit