db_metadata.cljs 431 B

1234567891011121314151617
  1. (ns frontend.worker.db-metadata
  2. "Fns to read/write metadata.edn file for db-based."
  3. (:require ["/frontend/idbkv" :as idb-keyval]))
  4. (defonce ^:private store (delay (idb-keyval/newStore "localforage" "keyvaluepairs" 2)))
  5. (defn- gen-key
  6. [repo]
  7. (str "metadata###" repo))
  8. (defn <store
  9. [repo metadata-str]
  10. (idb-keyval/set (gen-key repo) metadata-str @store))
  11. (defn <get
  12. [repo]
  13. (idb-keyval/get (gen-key repo) @store))