           (cc/set-json cdb (keyword (:key (cbkey "content-group" id)))
                        (merge from-db v))
           (cc/set-json cdb (keyword (:key (cbkey "content-group" id)))
-                       (merge v {:ctype "content-group"
+                       (merge v {:ctype    "content-group"
                                  :contents []}))))
       (println (:id v))
       (recur vs))))

            (cc/get-json cdb (keyword (:key (cbkey "content" id)))
                         (merge from-db v))
            (cc/get-json cdb (keyword (:key (cbkey "content" id)))
                         (merge v {:ctype "content"
                                   :tutors []
                                   :hits {}}))))
        (println (:id v))
        (recur vs)))))







       (cs/split-lines)
       (filter #(pos? (count %)))
       (pmap json/read-json)))

(defn open-log-kopet
  [fname]
  (->> (str dir-kopet fname)
       (slurp)
       (cs/split-lines)
       (filter #(pos? (count %)))
       (pmap json/read-json)))

(defn open-file
  [fname]
  (->> (str "resources/relevant/" fname ".edn")
       slurp read-string))

(defonce cdb (-> {:bucket "znetroyalty"
                  :uris   ["http://127.0.0.1:8091/pools"]}
