Question

我正在使用Clojure和Monger

它工作正常，我按照与它们相关的集合对函数进行分组。因此，每个文件都是这样开始的：

(ns img-cli.model.mycollectionname
  (:require [monger.core            :as mg]
            [monger.collection      :as mc]
            [edn-config.core        :refer [env]])
  (:import  [com.mongodb MongoOptions ServerAddress DB WriteConcern]
            [org.bson.types ObjectId]))


(def config (get-in env [:mongo]))

;; using MongoOptions allows fine-tuning connection parameters,
;; like automatic reconnection (highly recommended for production
;; environment)
(def ^MongoOptions  opts (mg/mongo-options { :threads-allowed-to-block-for-connection-multiplier 300}))
(def ^ServerAddress sa   (mg/server-address (:url config) (:port config)))
(def conn                (mg/connect sa opts))
(def db                  (mg/get-db conn (:db config)))

(def collection-name "asset")

;; I have to write one like this every time
(defn find-one-as-map
  "fetch asset by Id"
  [^String id]
  (mc/find-one-as-map db collection-name {:_id (ObjectId. id)}))

代码重复本身当然有几个缺点。此外，我不确定之后是否正确汇集了连接？

我怎样才能避免这样做？我觉得我可以通过额外的＆＃34; db＆＃34;每个函数的参数，但它来自哪里？

如果我在＆＃34;条目＆＃34;中创建数据库连接。我的程序的文件，然后如何从那里传递给每个函数？

例如，我们说我在不同文件中有Compojure个路由：

;; in the main handler file

(def db ...) ;; if I move the previous db configuration
             ;; in here, it could be the only place where this is set

;; importing Compojure routes from different files
(defroutes routes-from-file1
                  routes-from-file2...)

让我们说一些函数从＆＃34; file2＆＃34;中的一些路由调用。需要访问数据库，我该如何将这个变量传递给它们？

之后我也有很多重复的代码，例如为每个集合获取Id的数据...... 我觉得这可以简化，但我不确定如何。

Answer 1

只需通过命名空间

来引用它

(ns foo
  (:require [handler :as h]))
(println h/db)

Clojure - 避免使用monger请求重复代码

1 个答案: