如何在服务器全局使用 monger 连接？

要在服务器全局使用 monger 连接，你可以将连接配置保存在一个全局变量中，然后在需要使用连接的地方引用该全局变量。

以下是一个示例代码，展示了如何在服务器全局使用 monger 连接：

(ns your-namespace
  (:require [monger.core :as mg]))

(defonce ^:dynamic *mongo-conn* nil)

(defn connect-to-mongo []
  (if-not @*mongo-conn*
    (let [conn-uri "mongodb://localhost:27017/my-db"]
      (alter-var-root #'*mongo-conn* (fn [_] (mg/connect conn-uri))))))
  
(defn- disconnect-from-mongo []
  (when @*mongo-conn*
    (mg/disconnect @*mongo-conn*)
    (alter-var-root #'*mongo-conn* (constantly nil))))

(defn ^:exported handle-request []
  ;; 使用 *mongo-conn* 执行 MongoDB 操作
  (let [result (mg/find @*mongo-conn* :users {})]
    ;; 处理查询结果
    (println result)))

;; 在服务器启动时连接到 MongoDB
(connect-to-mongo)

;; 在服务器关闭时断开与 MongoDB 的连接
(add-hook! :shutdown-hook
  (disconnect-from-mongo))

;; 处理请求
(handle-request)

在上面的示例中，我们使用 defonce 定义了一个全局变量 *mongo-conn* 来保存 monger 连接。我们还定义了两个函数 connect-to-mongo 和 disconnect-from-mongo，分别用于连接和断开与 MongoDB 的连接。在 handle-request 函数中，我们可以使用 @*mongo-conn* 引用全局连接来执行 MongoDB 操作。

在服务器启动时，我们调用 connect-to-mongo 函数来连接到 MongoDB。在服务器关闭时，我们通过设置一个 :shutdown-hook 钩子来调用 disconnect-from-mongo 函数来断开与 MongoDB 的连接。

这样，你就可以在服务器全局使用 monger 连接了。