如何在-main函数上重新加载（停止和启动）超文本传输协议-kit“挂载状态”

Question

使用mount库，如何在-main函数上重新加载（停止和启动）http工具包“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”一切正常时，但是每当我更改一个文件，并且超文本传输协议服务器停止时，命令就会停止。目前我正在做“虽然真实；做lein运行；完成”来工作，所以我想过在-main函数中添加一个无限循环，但感觉这不是正确的方法。

我该怎么做？

Answer 1

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

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

你可以在这里看到与图书馆作者的讨论。

Answer 2

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

从挂载自述文件：

如果不需要对reload/recompile/redef上的运行状态进行任何操作，请将： on-reload设置为： noop：。

因此，请尝试以下方法：

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

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

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

我还可以建议，如果你想快速启动并运行，那么Leiningen有各种模板化的网络应用项目。例如，卢明斯项目。您可以将一个超文本传输协议-kit参数传递到lein new Lightus myapp命令，这将为您正确连接一个应用程序。然后，您可以去阅读生成的代码，并了解它是如何组合在一起的。