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

chore: use refresh! in transact-react!

Browse Source
This commit is contained in:
Tienson Qin
2021-04-16 09:56:55 +08:00
parent 700ff65c46
commit 831d27147b
8 changed files with 41 additions and 77 deletions
Download Patch File Download Diff File Expand all files Collapse all files

51
src/main/frontend/db/react.cljs
View File

@@ -275,45 +275,7 @@
distinct)))
[[key]])))
(defn transact-react!
[repo-url tx-data {:keys [key data] :as handler-opts}]
(when-not config/publishing?
(let [repo-url (or repo-url (state/get-current-repo))
tx-data (->> (util/remove-nils tx-data)
(remove nil?))
get-conn (fn [] (conn/get-conn repo-url false))]
(when (and (seq tx-data) (get-conn))
(let [tx-result (d/transact! (get-conn) (vec tx-data))
db (:db-after tx-result)
handler-keys (get-handler-keys handler-opts)]
(doseq [handler-key handler-keys]
(let [handler-key (vec (cons repo-url handler-key))]
(when-let [cache (get @query-state handler-key)]
(let [{:keys [query inputs transform-fn query-fn inputs-fn]} cache]
(when (or query query-fn)
(let [new-result (->
(cond
query-fn
(profile
"Query:"
(doall (query-fn db)))
inputs-fn
(let [inputs (inputs-fn)]
(apply d/q query db inputs))
(keyword? query)
(db-utils/get-key-value repo-url query)
(seq inputs)
(apply d/q query db inputs)
:else
(d/q query db))
transform-fn)]
(set-new-result! handler-key new-result))))))))))))
(defn refresh
(defn refresh!
[repo-url {:keys [key data] :as handler-opts}]
(let [handler-keys (get-handler-keys handler-opts)
db (conn/get-conn repo-url)]
@@ -344,6 +306,17 @@
transform-fn)]
(set-new-result! handler-key new-result)))))))))
(defn transact-react!
[repo-url tx-data {:keys [key data] :as handler-opts}]
(when-not config/publishing?
(let [repo-url (or repo-url (state/get-current-repo))
tx-data (->> (util/remove-nils tx-data)
(remove nil?))
get-conn (fn [] (conn/get-conn repo-url false))]
(when (and (seq tx-data) (get-conn))
(d/transact! (get-conn) (vec tx-data))
(refresh! repo-url handler-opts)))))
(defn set-key-value
[repo-url key value]
(if value