如何使用ring server构建clojure应用程序

Question

我有环形库的clojure项目.这是project.clj:

(defproject words "1.0.0-SNAPSHOT"
:description "Websocket handler for sessions"
:dependencies [[org.clojure/clojure "1.4.0"]
  [org.clojure/clojure-contrib "1.2.0"]
  [aleph "0.3.0-alpha1"]
  [org.clojure/data.json "0.1.2"]
  [clj-redis "0.0.13-SNAPSHOT"]
  [compojure "0.6.2"]
  [clj-http "0.1.3"]]
:main words.play
;; Lein ring plugin will provide `lein ring server` functionality
;; (and some other relative to ring actions)
:plugins [[lein-ring "0.6.6"]]
:ring {:handler words.api/engine})

在开发环境中,我使用2个命令运行它:lein run server lein ring server,它的工作原理.

对于生产环境,我希望最小化依赖关系并将其构建为独立jar,其中包含:

lein uberjar

如何构建它并从一个jar文件运行两个服务器？

Answer 1

关于

:main words.play

我建议你实现类似的-main功能words.play

(defn -main [& args]
  (case (first args)
    "server1" (do (println "Starting server1") (start-server1))
    "server2" (do (println "Starting server2") (start-server2))
    (println "Enter server name, pls")))

注意,这:gen-class在名称空间定义中是必需的:

(ns words.play
    (:gen-class))

实现start-server1并且start-server2应该依赖于具体的框架:(run-jetty ...)对于ring,(start-http-server ...)对于aleph等(您可以在相关文档中找到更多信息).

用法:

lein uberjar
## to start first server
java -jar my-project-1.0.0-SNAPSHOT-standalone.jar server1
## to start second one
java -jar my-project-1.0.0-SNAPSHOT-standalone.jar server2