   (query [e query]
     "Items are returned using a query map"))
 
-(defrecord MongoStore [mongo-db coll]
+(defrecord MongoStore [mongo-db coll k]
   cl-s/Store
   (fetch [this t]
     (when t

  (revoke! [this t]
    (when t
      (mc/remove-by-id mongo-db coll t)))
  (store! [this k item]
    (-> (mc/insert-and-return mongo-db coll (assoc item :_id (k item)))
        (dissoc :_id)))
  (entries [this]

  ([data]
   (MemoryStore. (atom data))))

(defn new-mongo-store [mongo-db coll k]
  (MongoStore. mongo-db coll k))

(defn get-mongo-db [mongo-uri]
  (log/debug "Connecting to mongo")
