dump_datoms.cljs 967 B

12345678910111213141516171819202122232425
  1. (ns dump-datoms
  2. "A script that dumps all eavt datoms to a specified edn file
  3. $ yarn -s nbb-logseq script/dump_datoms.cljs db-name datoms.edn"
  4. (:require ["fs" :as fs]
  5. ["path" :as node-path]
  6. [clojure.pprint :as pprint]
  7. [datascript.core :as d]
  8. [logseq.db.common.sqlite-cli :as sqlite-cli]
  9. [nbb.core :as nbb]))
  10. (defn -main [args]
  11. (when (< (count args) 2)
  12. (println "Usage: $0 GRAPH FILE")
  13. (js/process.exit 1))
  14. (let [[graph-name file*] args
  15. conn (apply sqlite-cli/open-db! (sqlite-cli/->open-db-args graph-name))
  16. datoms (mapv #(vec %) (d/datoms @conn :eavt))
  17. parent-dir (or js/process.env.ORIGINAL_PWD ".")
  18. file (node-path/join parent-dir file*)]
  19. (println "Writing" (count datoms) "datoms to" file)
  20. (fs/writeFileSync file (with-out-str (pprint/pprint datoms)))))
  21. (when (= nbb/*file* (nbb/invoked-file))
  22. (-main *command-line-args*))