From f1422c282736fda4c14a5062e7bd157bffe6a30f Mon Sep 17 00:00:00 2001 From: rcmerci Date: Tue, 11 Jul 2023 14:28:33 +0800 Subject: [PATCH] add frontend.db.sync --- src/main/frontend/db/sync.cljs | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) create mode 100644 src/main/frontend/db/sync.cljs diff --git a/src/main/frontend/db/sync.cljs b/src/main/frontend/db/sync.cljs new file mode 100644 index 0000000000..deea1c5a73 --- /dev/null +++ b/src/main/frontend/db/sync.cljs @@ -0,0 +1,19 @@ +(ns frontend.db.sync + (:require [datascript.core :as d] + [frontend.db.conn :as conn] + [frontend.state :as state])) + + + +(defn- export-as-blocks + [repo] + (let [db (conn/get-db repo) + datoms (d/datoms db :eavt)] + (->> datoms + (partition-by :e) + (keep (fn [datoms] + (when (seq datoms) + (reduce + (fn [r datom] (assoc r (:a datom) (:v datom))) + {:db/id (:e (first datoms))} + datoms)))))))