core.clj

(defn get-entry [short]
  (-> (kv/fetch-one bucket short)
      :result
      :value))

(defn get-all-entries []
  (let [keys (wb/keys-in bucket)]
    (group-by :channel (pmap get-entry keys))))