From ea65a659d61d55348ab23064aba5e58ff376a8ce Mon Sep 17 00:00:00 2001 From: Gabriel Horner Date: Tue, 12 Dec 2023 15:43:41 -0500 Subject: [PATCH] chore: remove bb task for validating previous sqlite data --- bb.edn | 3 -- .../src/logseq/tasks/validate_sqlite_data.clj | 32 ------------------- 2 files changed, 35 deletions(-) delete mode 100644 scripts/src/logseq/tasks/validate_sqlite_data.clj diff --git a/bb.edn b/bb.edn index 33f7fd3efd..e5551c2374 100644 --- a/bb.edn +++ b/bb.edn @@ -104,9 +104,6 @@ dev:gen-malli-kondo-config logseq.tasks.dev/gen-malli-kondo-config - dev:validate-sqlite-data - logseq.tasks.validate-sqlite-data/-main - lint:large-vars logseq.bb-tasks.lint.large-vars/-main diff --git a/scripts/src/logseq/tasks/validate_sqlite_data.clj b/scripts/src/logseq/tasks/validate_sqlite_data.clj deleted file mode 100644 index e99244631c..0000000000 --- a/scripts/src/logseq/tasks/validate_sqlite_data.clj +++ /dev/null @@ -1,32 +0,0 @@ -(ns logseq.tasks.validate-sqlite-data - (:require [pod.babashka.go-sqlite3 :as sqlite] - [babashka.fs :as fs])) - -(defn get-all-normal-blocks - [db-path] - (sqlite/query db-path "select * from blocks where type = 1")) - - -(defn get-all-page-blocks - [db-path] - (sqlite/query db-path "select * from blocks where type = 2")) - - - -(defn all-normal-blocks-have-page-uuid - [all-page-blocks all-normal-blocks] - (let [page-block-uuids (set (mapv :uuid all-page-blocks))] - (loop [[b & others] all-normal-blocks] - (when b - (assert (and (:uuid b) (contains? page-block-uuids (:page_uuid b))) b) - (recur others))))) - -(defn -main - [& args] - (prn args) - (let [db-graph-name (first args) - db-path (str (fs/path (fs/home) "logseq" "graphs" db-graph-name))] - (assert (fs/exists? db-path) db-path) - (let [all-page-blocks (get-all-page-blocks db-path) - all-normal-blocks (get-all-normal-blocks db-path)] - (all-normal-blocks-have-page-uuid all-page-blocks all-normal-blocks))))