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

fix: do not persist var under demo graph

pull/4869/head^2
Andelf 2022-04-11 15:41:50 +08:00 committed by Tienson Qin
parent bccfe73dfc
commit 7da03c0526
1 changed files with 22 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
src/main/frontend/util/persist_var.cljs
View File

@ -27,31 +27,33 @@
ILoad
(-load [_]
(let [repo (state/get-current-repo)]
(p/let [content (p/catch
(fs/read-file
(config/get-repo-dir (state/get-current-repo))
(load-path location))
(constantly nil))]
(when-let [content (and (some? content)
(try (cljs.reader/read-string content)
(catch js/Error e
(println (util/format "load persist-var failed: %s" (load-path location)))
(js/console.dir e))))]
(swap! *value (fn [o]
(-> o
(assoc-in [repo :loaded?] true)
(assoc-in [repo :value] content))))))))
(when-not (config/demo-graph?)
(let [repo (state/get-current-repo)]
(p/let [content (p/catch
(fs/read-file
(config/get-repo-dir (state/get-current-repo))
(load-path location))
(constantly nil))]
(when-let [content (and (some? content)
(try (cljs.reader/read-string content)
(catch js/Error e
(println (util/format "load persist-var failed: %s" (load-path location)))
(js/console.dir e))))]
(swap! *value (fn [o]
(-> o
(assoc-in [repo :loaded?] true)
(assoc-in [repo :value] content)))))))))
(-loaded? [_]
(get-in @*value [(state/get-current-repo) :loaded?]))
ISave
(-save [_]
(let [path (load-path location)
repo (state/get-current-repo)
content (str (get-in @*value [repo :value]))
dir (config/get-repo-dir repo)]
(fs/write-file! repo dir path content nil)))
(when-not (config/demo-graph?)
(let [path (load-path location)
repo (state/get-current-repo)
content (str (get-in @*value [repo :value]))
dir (config/get-repo-dir repo)]
(fs/write-file! repo dir path content nil))))
IDeref
(-deref [_this]