作为一个 Clojure 学习练习，我将 Bulbs ( http://bulbflow.com )（我编写的一个图形数据库库）从 Python 移植到 Clojure。
我仍然有些模糊的一件事是如何以 Clojure 惯用的方式构建库。
为了支持多个数据库，Bulbs 使用依赖注入。不同的数据库后端在实现接口的自定义客户端类中抽象出来，客户端在运行时进行配置。
Graph 对象及其各种代理对象包含一个低级 Client 对象的实例：
# bulbs/neo4jserver/graph.py
class Graph(object):
default_uri = NEO4J_URI
def __init__(self, config=None):
self.config = config or Config(self.default_uri)
self.client = Neo4jClient(self.config)
self.vertices = VertexProxy(Vertex, self.client)
self.edges = EdgeProxy(Edge, self.client)
您可以通过为相应的图形数据库服务器创建 Graph 对象来使用 Bulbs：
>>> from bulbs.neo4jserver import Graph
>>> g = Graph()
然后您可以通过代理对象在数据库中创建顶点和边：
>>> james = g.vertices.create(name="James")
>>> julie = g.vertices.create(name="Julie")
>>> g.edges.create(james, "knows", julie)
这种设计使得使用 REPL 中的 Bulb 变得很容易，因为您所要做的就是导入和实例化 Graph 对象（或者如果需要也可以传入自定义的 Config 对象）。
但我不确定如何在 Clojure 中处理这种设计，因为 Graph 对象及其代理需要保存在运行时配置的 Client 对象。
这样做的 Clojure 方式是什么？
更新：这就是我最终做的......
;; bulbs/neo4jserver/client.clj
(def ^:dynamic *config* default-config)
(defn set-config!
[config]
(alter-var-root #'*config* (fn [_] (merge default-config config))))
(defn neo4j-client
[& [config]]
(set-config! config))
(neo4j-client {:root_uri "http://localhost:7474/data/db/"})
(println *config*)
更新 2：
Andrew Cooke 指出，使用全局变量会阻止您在程序中使用多个独立的图形“实例”，而在 Python 版本中则可以。
所以我想出了这个：
(defn graph
[& [config]]
(let [config (get-config config)]
(fn [func & args]
(apply func config args))))
(defn create-vertex
[config data]
(let [path (build-path vertex-path)
params (remove-null-values data)]
(rest/post config path params)))
(defn gremlin
[config script & [params]]
(rest/post config gremlin-path {:script script :params params}))
然后你可以像这样调用不同的函数：
(def g (graph {:root_uri "http://localhost:7474/data/db/"}))
(g create-vertex {:name "James"})
(g gremlin "g.v(id)" {:id 178})
现在我还没有深入研究宏，与其他方法相比，我不太确定这种方法的优点，因此欢迎反馈。