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

fix: changes not refreshed immediately

Browse Source
This commit is contained in:
Tienson Qin
2021-08-23 18:09:01 +08:00
parent 4f577114fa
commit 17f3b9c0d8
2 changed files with 27 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
src/main/frontend/handler/file.cljs
View File

@@ -169,27 +169,27 @@
write-file! (if from-disk?
#(p/resolved nil)
#(fs/write-file! repo (config/get-repo-dir repo) path content (when original-content {:old-content original-content})))]
(if reset?
(do
(when-let [page-id (db/get-file-page-id path)]
(db/transact! repo
[[:db/retract page-id :block/alias]
[:db/retract page-id :block/tags]]))
(reset-file! repo path content))
(db/set-file-content! repo path content))
(util/p-handle (write-file!)
(fn [_]
(when (= path (config/get-config-path repo))
(restore-config! repo true))
(when (= path (config/get-custom-css-path repo))
(ui-handler/add-style-if-exists!))
(when re-render-root? (ui-handler/re-render-root!))
;; (when (and add-history? original-content)
;; (history/add-history! repo [[path original-content content]]))
)
(fn [error]
(println "Write file failed, path: " path ", content: " content)
(log/error :write/failed error)))))
(p/let [_ (if reset?
(do
(when-let [page-id (db/get-file-page-id path)]
(db/transact! repo
[[:db/retract page-id :block/alias]
[:db/retract page-id :block/tags]]))
(reset-file! repo path content))
(db/set-file-content! repo path content))]
(util/p-handle (write-file!)
(fn [_]
(when (= path (config/get-config-path repo))
(restore-config! repo true))
(when (= path (config/get-custom-css-path repo))
(ui-handler/add-style-if-exists!))
(when re-render-root? (ui-handler/re-render-root!))
;; (when (and add-history? original-content)
;; (history/add-history! repo [[path original-content content]]))
)
(fn [error]
(println "Write file failed, path: " path ", content: " content)
(log/error :write/failed error))))))
(defn set-file-content!
[repo path new-content]