Clojure重新加载工作流而不使用像Component这样的库?

时间:2017-04-22 01:20:20

标签: clojure leiningen http-kit

所以我有一个简单的webapp,它有一个启动http服务器的main方法。 我想要实现的开发设置基本上就像使用lein auto,但我想停止并启动我的服务器并在文件更改时自动重新加载命名空间。 这似乎应该是简单易行的东西,但到目前为止,我还没有找到任何lein插件或其他方法来实现这一点。

1 个答案:

答案 0 :(得分:3)

我认为您正在寻找的是我所寻找的,tools.namespacewrap-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))