http://mindbat.com/2013/03/clojurewest-2013-day-one-notes/ 上有一条注释：
我认为这是一个很好的建议，但我不完全确定如何在 Ring/Compojure 应用程序中实现这一点。谁能举一个具体的例子来说明这是如何工作的？
我对如何以这种方式将defroutes、init 和app 组合在一起并摆脱该范围内的全局变量特别感兴趣。
【问题讨论】：
我从 Stuart 的演讲中了解到是这样的：
(ns state.core)
(defn create-user-module [] (atom []))
(defn add-user [module user]
(swap! module conj user))
(defn get-users [module]
@module)
现在您的“核心”中没有全局状态，因为操纵状态的函数希望将其作为参数获取。这些允许轻松测试，因为您可以为每个测试创建一个“用户模块”的新实例。此外，这个模块的客户端不应该关心他们在 create-user-module 函数中得到了什么，他们应该只是传递它而不检查它，这样你就可以随时更改用户模块的实现。 Stuart 还谈到了为这些模块创建协议，如果您将有多个实现。
试图回答您的问题，环形适配器只是 1 个参数的函数，而 compojure 只是一个路由库，因此您可以使用以下闭包创建 Web 应用：
(ns state.web
(:use compojure.core)
(:require [state.core :as core]))
(defn web-module [user-module]
(routes
(GET "/all" [] (core/get-users user-module))))
现在您可以调用 web-module 来创建 webapp，并将所需的依赖项作为参数传递。当然，您仍然需要有人使用正确的用户模块创建 Web 应用程序，因此您只需要一个将所有内容连接在一起的“主”函数：
(ns state.main
(:require state.core
state.web)
(:use ring.adapter.jetty))
(defn start []
(let [user-module (state.core/create-user-module)
web-module (state.web/web-module user-module)]
(run-jetty web-module {:port 3000 :join? false})))
(defn stop [app]
(.stop app))
start 将从您的应用程序main 方法中调用。这只是意味着你需要切换到 lein-run 插件。
现在，鉴于您正在询问init（我假设来自 lein ring 插件），我猜您计划将您的 web 应用程序部署在容器中。由于 lein ring 插件必须在 java servlet fw 约束内工作，并且处理程序最终编译为 java servlet，因此您可以做的最好的事情可能是：
(ns state.web
(:use compojure.core)
(:require [state.core :as core]))
(def module-deps (atom {})
(defn init-app [] (swap! module-deps conj [:user-module (core/create-user-module)]))
(defroutes web-module []
(GET "/all" [] (core/get-users (:user-module @module-deps))))
这仍然意味着你的核心命名空间很容易测试，但你仍然在 web 命名空间中有全局状态，但我认为这是“正确”封装的，如果你必须使用 java 容器，可能就足够了。
这只是为什么库比框架“更好”的另一个论据:)
【讨论】：
在很多情况下你需要全局状态，因此你无法避免它，你可以做的是正确管理它，我想这就是这两点所说的：
不是个好办法：
(ns data)
(def users (atom []))
(ns pages)
(defn home []
(do-something data/@users)
(defn save []
(let [u @users]
(swap! data/users ....)
好方法：
(ns data)
(def- users (atom []))
(defn get-users [] @users)
(defn update-user [user] (swap! @users ...))
(ns pages)
; use the functions exposed by data ns to interact with data rather then poking the atom directly.
基本上所有对任何类型状态的访问都应该从应用程序的其他部分抽象出来。您所有的业务逻辑函数都应该将状态作为参数并返回新状态，而不是自己选择状态并直接更新。
【讨论】：