diff --git a/src/main/frontend/worker/rtc/asset_sync.cljs b/src/main/frontend/worker/rtc/asset_sync.cljs index 968329c777..7c812eafa4 100644 --- a/src/main/frontend/worker/rtc/asset_sync.cljs +++ b/src/main/frontend/worker/rtc/asset_sync.cljs @@ -4,10 +4,12 @@ (:require [malli.core :as m] [malli.util :as mu] [cljs.core.async :as async :refer [! chan go go-loop]] - [frontend.db.rtc.const :as rtc-const] - [frontend.db.rtc.op-mem-layer :as op-mem-layer] + [frontend.worker.rtc.const :as rtc-const] + [frontend.worker.rtc.op-mem-layer :as op-mem-layer] [frontend.handler.user :as user] - [frontend.db.rtc.ws :as ws])) + [frontend.worker.rtc.ws :as ws] + [frontend.worker.async-util :include-macros true :refer [ asset-entity :asset/meta :name) + "default-name")}]}))) + :remove-asset + (asset-uuid-sorted-map asset-uuid->ops]} (:current-branch repo-ops-store)] + (assert (contains? repo-ops-store :current-branch) repo) + (when-let [[_epoch asset-uuid] (first epoch->asset-uuid-sorted-map)] + (assert (contains? asset-uuid->ops asset-uuid)) + {:asset-uuid asset-uuid + :ops (asset-uuid->ops asset-uuid)}))) + +(defn get-asset-ops + [repo asset-uuid] + (let [repo-ops-store (get @*ops-store repo) + {:keys [asset-uuid->ops]} (:current-branch repo-ops-store)] + (assert (contains? repo-ops-store :current-branch) repo) + (asset-uuid->ops asset-uuid))) + + (defn get-graph-uuid [repo] (some-> (get @*ops-store repo) @@ -456,17 +474,16 @@ :block-uuid->ops (dissoc block-uuid->ops block-uuid) :epoch->block-uuid-sorted-map (dissoc epoch->block-uuid-sorted-map min-epoch))))) -(comment - (defn remove-asset-ops! - [repo asset-uuid] - {:pre [(uuid? asset-uuid)]} - (let [repo-ops-store (get @*ops-store repo) - {:keys [epoch->asset-uuid-sorted-map asset-uuid->ops]} (:current-branch repo-ops-store)] - (assert (contains? repo-ops-store :current-branch) repo) - (let [min-epoch (asset-uuid->min-epoch asset-uuid->ops asset-uuid)] - (swap! *ops-store update-in [repo :current-branch] assoc - :asset-uuid->ops (dissoc asset-uuid->ops asset-uuid) - :epoch->asset-uuid-sorted-map (dissoc epoch->asset-uuid-sorted-map min-epoch)))))) +(defn remove-asset-ops! + [repo asset-uuid] + {:pre [(uuid? asset-uuid)]} + (let [repo-ops-store (get @*ops-store repo) + {:keys [epoch->asset-uuid-sorted-map asset-uuid->ops]} (:current-branch repo-ops-store)] + (assert (contains? repo-ops-store :current-branch) repo) + (let [min-epoch (asset-uuid->min-epoch asset-uuid->ops asset-uuid)] + (swap! *ops-store update-in [repo :current-branch] assoc + :asset-uuid->ops (dissoc asset-uuid->ops asset-uuid) + :epoch->asset-uuid-sorted-map (dissoc epoch->asset-uuid-sorted-map min-epoch))))) (defn