Настройка ReadPreference в Clojure MongoDb Драйвер Monger

Question

Как мне установить ReadPreference при использовании find-maps в Monger? В документации Monger указано только использование with-collection monger.query, как показано ниже.

(ns my.service.server
(:refer-clojure :exclude [sort find])
(:require [monger.core :as mg]
        [monger.query :refer :all])
(:import com.mongodb.ReadPreference))

(let [conn (mg/connect)
  db   (mg/get-db conn "monger-test")
  coll "scores"]
;; reads from primary (master) to guarantee consistency
;; (at the cost of putting extra load on the primary)
(with-collection db coll
(find {:email "[e-mail]"})
(read-preference (ReadPreference/primary))))

Answer 1

Один из способов сделать это - установить параметры чтения при подключении к Mongo:

(mg/connect
  (mg/server-address "127.0.0.1" 27017)
  (mg/mongo-options {:read-preference (com.mongodb.ReadPreference/secondaryPreferred)}))

Если вы думаете об использовании этого метода в Java API: https://mongodb.github.io/mongo-java-driver/3.4/javadoc/com/mongodb/DBCollection.html Я не нашел способ использовать это через Monger. Однако вы можете свернуть свои собственные функции, чтобы воспользоваться этим API:

(defn find-with-read-preference [db coll]
  (.find (doto
           (.getCollection db (name coll))
           (.setReadPreference (ReadPreference/secondaryPreferred)))))

(defn find-maps-with-read-preference
  ([^DB db ^String coll]
   (with-open [result (find-with-read-preference db coll)]
     (map (fn [x] (monger.conversion/from-db-object x true)) result))))