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)))))))