greatbody
/
logseq
mirror of https://github.com/logseq/logseq
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

fix: FIXME in carve config

pull/11311/head
rcmerci 2024-05-07 21:34:13 +08:00
parent 039d0ed287
commit 26f019853e
2 changed files with 30 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
.carve/config.edn
View File

@ -5,7 +5,5 @@
frontend.db
;; Used for debugging
frontend.db.debug
frontend.worker.debug
;; FIXME: Are these unused fns?
frontend.worker.rtc.op-mem-layer]
frontend.worker.debug]
:report {:format :ignore}}

55
src/main/frontend/worker/rtc/op_mem_layer.cljs
View File

@ -416,15 +416,16 @@
vals
(mapcat vals)))
(defn get-min-epoch-asset-ops
[repo]
(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)
(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)})))
(comment
(defn get-min-epoch-asset-ops
[repo]
(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)
(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)}))))
(comment
(defn get-asset-ops
@ -450,13 +451,14 @@
count)
0))
(defn get-unpushed-asset-update-count
[repo]
(some-> (get @*ops-store repo)
:current-branch
:asset-uuid->ops
keys
count))
(comment
(defn get-unpushed-asset-update-count
[repo]
(some-> (get @*ops-store repo)
:current-branch
:asset-uuid->ops
keys
count)))
(defn intersection-block-uuids
[repo block-uuid-coll]
@ -479,16 +481,17 @@
:block-uuid->ops (dissoc block-uuid->ops block-uuid)
:epoch->block-uuid-sorted-map (dissoc epoch->block-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)))))
(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 <init-load-from-indexeddb!