clone/logseq
1
0
Fork 0
mirror of https://github.com/logseq/logseq.git synced 2026-05-04 19:06:21 +00:00
Code Issues Packages Projects Releases Wiki Activity

fix: whiteboard saving timing delay

Browse Source
This commit is contained in:
Peng Xiao
2022-09-24 15:32:41 +08:00
parent 5f8385b098
commit c17c9af067
2 changed files with 18 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1466,16 +1466,24 @@ Similar to re-frame subscriptions"
(not (get-edit-input-id)))))
(defn whiteboard-page-idle?
[repo whiteboard-page & {:keys [diff]
:or {diff 1000}}]
"Check if whiteboard page is idle.
- when current tool is select and idle
- and whiteboard page is updated longer than 1000 seconds
- when current tool is other tool and idle
- and whiteboard page is updated longer than 3000 seconds"
[repo whiteboard-page & {:keys [select-idle-ms tool-idle-ms]
:or {select-idle-ms 1000
tool-idle-ms 3000}}]
(when repo
(or
(when-let [last-time (:block/updated-at whiteboard-page)]
(let [now (util/time-ms)]
(>= (- now last-time) diff)))
;; in idle mode
(when-let [tldraw-app (active-tldraw-app)]
(.. tldraw-app (isIn "select.idle"))))))
(if-let [tldraw-app (active-tldraw-app)]
(let [last-time (:block/updated-at whiteboard-page)
now (util/time-ms)
ellapsed (- now last-time)
select-idle (.. tldraw-app (isIn "select.idle"))
tool-idle (.. tldraw-app -selectedTool (isIn "idle"))]
(or (and select-idle (>= ellapsed select-idle-ms))
(and (not select-idle) tool-idle (>= ellapsed tool-idle-ms))))
true)))
(defn set-nfs-refreshing!
[value]