|
|
@@ -56,7 +56,7 @@
|
|
|
(not (state/input-idle? repo {:diff 3000}))) ;; long page
|
|
|
;; when this whiteboard page is just being updated
|
|
|
(and whiteboard? (not (state/whiteboard-idle? repo))))
|
|
|
- (async/put! (state/get-file-write-chan) [repo page-db-id outliner-op])
|
|
|
+ (async/put! (state/get-file-write-chan) [repo page-db-id outliner-op (tc/to-long (t/now))])
|
|
|
(let [pull-keys (if whiteboard? whiteboard-blocks-pull-keys-with-persisted-ids '[*])
|
|
|
blocks (model/get-page-blocks-no-cache repo (:block/name page-block) {:pull-keys pull-keys})
|
|
|
blocks (if whiteboard? (map cleanup-whiteboard-block blocks) blocks)]
|
|
|
@@ -102,7 +102,7 @@
|
|
|
[]
|
|
|
(util/<ratelimit (state/get-file-write-chan) batch-write-interval
|
|
|
:filter-fn
|
|
|
- (fn [[repo _ time]]
|
|
|
+ (fn [[repo _ _ time]]
|
|
|
(swap! *writes-finished? assoc repo {:time time
|
|
|
:value false})
|
|
|
true)
|