Initial import of LogDarioSeq baseline

Establishes version control for the personal Logseq DB fork before starting the server-client architecture migration and domain features described in docs/agent-guide and the approved implementation plan. Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
2026-08-25 15:32:15 +02:00
commit 40631362b3
2016 changed files with 543898 additions and 0 deletions
--- a/deps/db/script/query.cljs
+++ b/deps/db/script/query.cljs
@@ -0,0 +1,70 @@
+(ns query
+  "A script that queries any db graph from the commandline e.g.
+
+  $ pnpm exec nbb-logseq script/query.cljs db-name '[:find (pull ?b [:block/name :block/title]) :where [?b :block/created-at]]'"
+  (:require ["child_process" :as child-process]
+            [babashka.cli :as cli]
+            [clojure.edn :as edn]
+            [clojure.pprint :as pprint]
+            [datascript.core :as d]
+            [logseq.db.common.sqlite-cli :as sqlite-cli]
+            [logseq.db.frontend.rules :as rules]
+            [nbb.core :as nbb]))
+
+(defn- sh
+  "Run shell cmd synchronously and print to inherited streams by default. Aims
+  to be similar to babashka.tasks/shell"
+  [cmd opts]
+  (child-process/spawnSync (first cmd)
+                           (clj->js (rest cmd))
+                           (clj->js (merge {:stdio "inherit"} opts))))
+
+(def spec
+  "Options spec"
+  {:help {:alias :h
+          :desc "Print help"}
+   :verbose {:alias :v
+             :desc "Print more info"}
+   :raw {:alias :r
+         :desc "Print results plainly. Useful when piped to bb"}
+   :additional-graphs {:alias :a
+                       :coerce []
+                       :desc "Additional graphs to query"}
+   :entity {:alias :e
+            :coerce []
+            :desc "Lookup entities instead of query"}})
+
+(defn query-graph [graph args'' options]
+  (let [conn (apply sqlite-cli/open-db! (sqlite-cli/->open-db-args graph))
+        results (if (:entity options)
+                  (map #(when-let [ent (d/entity @conn
+                                                 (if (string? %) (edn/read-string %) %))]
+                          (into {:db/id (:db/id ent)} ent))
+                       (:entity options))
+                  ;; assumes no :in are in queries
+                  (let [query (into (edn/read-string (first args'')) [:in '$ '%])
+                        res (d/q query @conn (rules/extract-rules rules/db-query-dsl-rules))]
+                    ;; Remove nesting for most queries which just have one :find binding
+                    (if (= 1 (count (first res))) (mapv first res) res)))]
+    (when (:verbose options) (println "DB contains" (count (d/datoms @conn :eavt)) "datoms"))
+    (if (:raw options)
+      (prn results)
+      (if (zero? (.-status (child-process/spawnSync "which" #js ["puget"])))
+        (sh ["puget"] {:input (pr-str results) :stdio ["pipe" "inherit" "inherit"]})
+        (pprint/pprint results)))))
+
+(defn -main [args]
+  (let [{options :opts args' :args} (cli/parse-args args {:spec spec})
+        [graph-dir & args''] args'
+        _ (when (or (nil? graph-dir) (:help options))
+            (println (str "Usage: $0 GRAPH-NAME [& ARGS] [OPTIONS]\nOptions:\n"
+                          (cli/format-opts {:spec spec})))
+            (js/process.exit 1))
+        graph-dirs (cond-> [graph-dir]
+                     (:additional-graphs options)
+                     (into (:additional-graphs options)))]
+    (doseq [graph-dir graph-dirs]
+      (query-graph graph-dir args'' options))))
+
+(when (= nbb/*file* (nbb/invoked-file))
+  (-main *command-line-args*))