fix: remove unused db.sqlite related fns

- remove sqlite-db/close! as its not used and didn't make sense to be
  used in other electron ns
- remove sqlite-db/connections atom as its not needed
- remove read-graph as its not necessary
- rename cli.persist-graph as its primary purpose has changed
- update effected scripts
This commit is contained in:
Gabriel Horner
2023-12-13 11:59:21 -05:00
parent 79a9c59dd5
commit ffa6aaae29
16 changed files with 58 additions and 118 deletions

View File

@@ -5,7 +5,6 @@
(:require [datascript.core :as d]
[clojure.edn :as edn]
[logseq.db.sqlite.db :as sqlite-db]
[logseq.db.sqlite.cli :as sqlite-cli]
[logseq.db.frontend.rules :as rules]
[nbb.core :as nbb]
["path" :as path]
@@ -15,18 +14,17 @@
"The db graph bare version of gp-cli/parse-graph"
[graph-name]
(let [graphs-dir (path/join (os/homedir) "logseq/graphs")]
(sqlite-db/open-db! graphs-dir graph-name)
(sqlite-cli/read-graph graph-name)))
(sqlite-db/open-db! graphs-dir graph-name)))
(defn -main [args]
(when (not= 2 (count args))
(when (< (count args) 2)
(println "Usage: $0 GRAPH QUERY")
(js/process.exit 1))
(let [[graph-name query*] args
conn (read-graph graph-name)
query (into (edn/read-string query*) [:in '$ '%]) ;; assumes no :in are in queries
results (mapv first (d/q query @conn (rules/extract-rules rules/db-query-dsl-rules)))]
#_(println "DB contains" (count (d/datoms @conn :eavt)) "datoms")
(when ((set args) "-v") (println "DB contains" (count (d/datoms @conn :eavt)) "datoms"))
(prn results)))
(when (= nbb/*file* (:file (meta #'-main)))