clojure-api：多个 API 处理程序的单个主 clj

Question

下面是我的应用project.clj

(defproject clojure-my-app-api "0.1.0-SNAPSHOT"
      :description "FIXME: write description"
      :url "http://example.com/FIXME"
      :license {:name "Eclipse Public License"
                :url "http://www.eclipse.org/legal/epl-v10.html"}
      :ring {:handler clojure-my-app-api.core/app} 
      :dependencies [[org.clojure/clojure "1.8.0"]
                     [metosin/compojure-api "1.1.10"]
                     [ring/ring-core "1.4.0"]
                     [ring/ring-jetty-adapter "1.4.0"]]
      :main clojure-my-app-api.core)

我的应用 core.clj 是

(ns clojure-my-app-api.core
  (:require [ring.adapter.jetty :as jetty])
  (:require [compojure.api.sweet :refer :all])
  (:require [ring.util.http-response :refer :all]))

(defapi app
  (GET "/hello" []
    :query-params [name :- String]
    (ok {:message (str "Dear " name ", Hello I am here ")})))

(jetty/run-jetty app {:port 3000})

我的疑问是，如果我们有多个 classes 来处理多个 API 请求，是否必须在每个 clj class 中放置 (jetty/run-jetty app {:port 3000})。

你能帮我看看是否有任何单一的主要 class 机制让多个 clj class 处理不同的 API 路径。

我已经修改了我的代码。

project.clj

(defproject clojure-dauble-business-api "0.1.0-SNAPSHOT"
  :description "FIXME: write description"
  :url "http://example.com/FIXME"
  :license {:name "Eclipse Public License"
            :url "http://www.eclipse.org/legal/epl-v10.html"}
  :ring {:handler {clojure-dauble-business-api.core/app 
                  clojure-dauble-business-api.test/test1}}
  :repl-options {:init-ns clojure-dauble-business-api.user}
  :dependencies [[org.clojure/clojure "1.8.0"]
                 [metosin/compojure-api "1.1.10"]
                 [ring/ring-core "1.4.0"]
                 [ring/ring-jetty-adapter "1.4.0"]]
  :main clojure-dauble-business-api.user)

user.clj

(ns clojure-dauble-business-api.user
  (:require [ring.adapter.jetty :as jetty])
  (:require [compojure.api.sweet :refer :all])
  (:require [ring.util.http-response :refer :all])
  (:require [clojure-dauble-business-api.core :as core])
  (:require [clojure-dauble-business-api.test :as test]))

(jetty/run-jetty (list core/app test/test) {:port 3000})

core.clj

(ns clojure-dauble-business-api.core
  (:require [ring.adapter.jetty :as jetty])
  (:require [compojure.api.sweet :refer :all])
  (:require [ring.util.http-response :refer :all]))

(defapi app
  (GET "/hello" []
    :query-params [name :- String]
    (ok {:message (str "Dear " name ", Hello I am here ")})))

test.clj

(ns clojure-dauble-business-api.test
  (:require [ring.adapter.jetty :as jetty])
  (:require [compojure.api.sweet :refer :all])
  (:require [ring.util.http-response :refer :all]))

(defapi test
  (GET "/ping" []
    :query-params [name :- String]
    (ok {:message (str "Dear " name ", Hello I am here ")})))

Postman 运行 http://localhost:3000/hello?name=acbd 端点出错

2017-07-08 10:46:34.413:WARN:oejs.HttpChannel:qtp191004666-15: /hello?name=abcd
java.lang.ClassCastException: clojure.lang.PersistentList cannot be cast to clojure.lang.IFn
    at ring.adapter.jetty$proxy_handler$fn__1401.invoke(jetty.clj:24)
    at ring.adapter.jetty.proxy$org.eclipse.jetty.server.handler.AbstractHandler$ff19274a.handle(Unknown Source)
    at org.eclipse.jetty.server.handler.HandlerWrapper.handle(HandlerWrapper.java:97)
    at org.eclipse.jetty.server.Server.handle(Server.java:497)
    at org.eclipse.jetty.server.HttpChannel.handle(HttpChannel.java:310)
    at org.eclipse.jetty.server.HttpConnection.onFillable(HttpConnection.java:257)
    at org.eclipse.jetty.io.AbstractConnection.run(AbstractConnection.java:540)
    at org.eclipse.jetty.util.thread.QueuedThreadPool.runJob(QueuedThreadPool.java:635)
    at org.eclipse.jetty.util.thread.QueuedThreadPool.run(QueuedThreadPool.java:555)
    at java.lang.Thread.run(Thread.java:745)

Answer 1

我也是新手，希望对你有帮助：

我是这样实现的。有一个名为 user.clj 的文件具有
(jetty/run-jetty app {:port 3000})

以及您可以在 main 中然后在 project.clj 中指定的其他常用函数 :repl-options {:init-ns user}

你也可以使用注入来加载命名空间，但我从未使用过它们。

Answer 2

您的任何命名空间中都不应该包含 (jetty/run-jetty (list core/app test/test) {:port 3000})。（将它放在 user.clj 中对 REPL 工作很好）。

通常，您有一个传递给 ring 以处理您的应用程序的处理程序路由。

例如，我通常有一个 routes 命名空间，我通过来自其他命名空间的路由组合起来。

所以，从你的例子来看。

(ns clojure-dauble-business-api.routes
    :require [compojure.core :refer :all]
             (clojure-dauble-business-api [core :as core]
                                          [test :as t]))
(def app
 (routes core/app t/test))

这是您可以传递到 Jetty 中的内容，或者在您的 project.clj 中的 :ring 条目中引用。

:ring {:handler clojure-dauble-business-api.routes}

您收到错误消息，因为必须向 run-jetty 传递一个函数，但您向它传递的是一个列表（因为您试图用 (list core/app test/test)

我还会将插件 lein-ring 添加到您的项目并删除 :main 条目。您还必须如上所述更正项目中的 :ring 条目。

clojure-api：多个 API 处理程序的单个主 clj

clojure-api: Single main clj for multiple API handlers

clojure

clojure-contrib