mirror of
https://github.com/logseq/logseq.git
synced 2026-02-01 22:47:36 +00:00
3fe790d4d7
This allows for easier use of debugging graphs as they are exported by users as a file. Also DRYed up duplicated helper
25 lines
967 B
Clojure
25 lines
967 B
Clojure
(ns dump-datoms
|
|
"A script that dumps all eavt datoms to a specified edn file
|
|
|
|
$ yarn -s nbb-logseq script/dump_datoms.cljs db-name datoms.edn"
|
|
(:require ["fs" :as fs]
|
|
["path" :as node-path]
|
|
[clojure.pprint :as pprint]
|
|
[datascript.core :as d]
|
|
[logseq.db.common.sqlite-cli :as sqlite-cli]
|
|
[nbb.core :as nbb]))
|
|
|
|
(defn -main [args]
|
|
(when (< (count args) 2)
|
|
(println "Usage: $0 GRAPH FILE")
|
|
(js/process.exit 1))
|
|
(let [[graph-name file*] args
|
|
conn (apply sqlite-cli/open-db! (sqlite-cli/->open-db-args graph-name))
|
|
datoms (mapv #(vec %) (d/datoms @conn :eavt))
|
|
parent-dir (or js/process.env.ORIGINAL_PWD ".")
|
|
file (node-path/join parent-dir file*)]
|
|
(println "Writing" (count datoms) "datoms to" file)
|
|
(fs/writeFileSync file (with-out-str (pprint/pprint datoms)))))
|
|
|
|
(when (= nbb/*file* (nbb/invoked-file))
|
|
(-main *command-line-args*)) |