2

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

4

1 回答 1

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))
于 2017-04-22T02:59:26.240 回答