clone/logseq
1
0
Fork 0
mirror of https://github.com/logseq/logseq.git synced 2026-05-02 09:56:31 +00:00
Code Issues Packages Projects Releases Wiki Activity

fix: revise whiteboard saving throttle code

Browse Source
This commit is contained in:
Peng Xiao
2022-09-20 16:47:05 +08:00
parent b4e6ad4769
commit 2c4798f6dd
4 changed files with 23 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
src/main/frontend/state.cljs
View File

@@ -1400,12 +1400,11 @@ Similar to re-frame subscriptions"
[]
^js js/window.tln)
(defn tldraw-idle?
"return true when tldraw is active and idle. nil when tldraw is
not active."
(defn tldraw-editing-logseq-block?
[]
(when-let [app (active-tldraw-app)]
(.. app -selectedTool (isIn "idle"))))
(and (= 1 (.. app -selectedShapesArray -length))
(= (.. app -editingShape) (.. app -selectedShapesArray (at 0))))))
(defn set-graph-syncing?
[value]
@@ -1460,7 +1459,19 @@ Similar to re-frame subscriptions"
(>= (- now last-time) diff)))
;; not in editing mode
;; Is this a good idea to put whiteboard check here?
(not (or (get-edit-input-id) (active-tldraw-app))))))
(not (get-edit-input-id)))))
(defn whiteboard-page-idle?
[repo whiteboard-page & {:keys [diff]
:or {diff 1000}}]
(when repo
(or
(when-let [last-time (:block/updated-at whiteboard-page)]
(let [now (util/time-ms)]
(>= (- now last-time) diff)))
;; not in idle mode
(not (when-let [tldraw-app (active-tldraw-app)]
(.. tldraw-app -selectedTool (isIn "idle")))))))
(defn set-nfs-refreshing!
[value]