3

我正在使用使用 ring/compojure 的 luminus Web 框架运行服务器，并且我希望能够使用 clojure repl 连接到我的代码。我知道有一个nrepl代表网络复制的服务器，您可以通过以下方式连接到它：`lein repl :connect user@host:port （或一些不同的协议，我已经尝试了一些东西）。

以下代码repl.clj是在您使用 `lein new luminus [project-name] 自动生成 luminus 项目时创建的（实际上我添加了附加 clojurescript repl 所需的 browser-repl 片段）。

(ns sophia-site.repl
  (:require [cemerick.piggieback :as pig]
            [weasel.repl.websocket])
  (:use sophia-site.handler
        ring.server.standalone
        [ring.middleware file-info file]))

(defn browser-repl []
  (pig/cljs-repl :repl-env 
                 (weasel.repl.websocket/repl-env :ip "localhost" :port 9001)))

(defonce server (atom nil))

(defn get-handler []
  ;; #'app expands to (var app) so that when we reload our code,
  ;; the server is forced to re-resolve the symbol in the var
  ;; rather than having its own copy. When the root binding
  ;; changes, the server picks it up without having to restart.
  (-> #'app
      ; Makes static assets in $PROJECT_DIR/resources/public/ available.
      (wrap-file "resources")
      ; Content-Type, Content-Length, and Last Modified headers for files in body
      (wrap-file-info)))

(defn start-server
  "used for starting the server in development mode from REPL"
  [& [port]]
  (let [port (if port (Integer/parseInt port) 8080)]
    (reset! server
            (serve (get-handler)
                   {:port port
                    :init init
                    :auto-reload? true
                    :destroy destroy
                    :join? false}))
    (println (str "You can view the site at http://some-ip:" port))))

(defn stop-server []
  (.stop @server)
  (reset! server nil))

我一直不成功lein repl :connect ...

  1. 如何将 clojure repl 附加到服务器上的代码？

感谢所有的帮助

4

1 回答 1

4

在您的项目根目录中，您应该运行lein repl，一旦连接，您可以(start-server)在 repl 提示符下输入。

您的服务器和浏览器选项卡将启动，您调用的 repl 提示符(start-server) 可用于与正在运行的应用程序进行交互。

为了防止浏览器选项卡启动，您需要添加:open-browser? false到传递给serverepl.clj 的选项映射： 

(serve (get-handler)
       {:port port
        :init init
        :auto-reload? true
        :destroy destroy
        :open-browser? false
        :join? false})
于 2015-01-16T18:24:30.337 回答