所以我有一个简单的webapp,它有一个启动http服务器的main方法。 我想要实现的开发设置基本上就像使用lein auto,但我想停止并启动我的服务器并在文件更改时自动重新加载命名空间。 这似乎应该是简单易行的东西,但到目前为止,我还没有找到任何lein插件或其他方法来实现这一点。
答案 0 :(得分:3)
我认为您正在寻找的是我所寻找的,tools.namespace和wrap-reload的组合。
这是我想出的:
(ns your-project.core
(:require [clojure.tools.namespace.repl :as tn]
[org.httpkit.server :as http]
[ring.middleware.reload :refer [wrap-reload]]
[compojure.core :refer [defroutes GET]]
(defroutes create-app []
(GET "/" [] (fn [req] "hello world")
(defonce server (atom nil))
(defn start []
(let [app (create-app)]
(reset! server (http/run-server (wrap-reload app) {:port 3000}))
(println (str "Listening on port " 3000))))
(defn stop []
(when @server
(@server :timeout 100)
(reset! server nil)))
(defn restart []
(stop)
(tn/refresh :after 'your-project.core/start))