clone/logseq
1
0
Fork 0
mirror of https://github.com/logseq/logseq.git synced 2026-04-27 07:35:01 +00:00
Code Issues Packages Projects Releases Wiki Activity

remove ns frontend.db.transact

Browse Source
This commit is contained in:
Tienson Qin
2025-09-23 20:30:51 +08:00
parent 2495d9bf89
commit 7a9fc2ccb7
13 changed files with 37 additions and 141 deletions
Download Patch File Download Diff File Expand all files Collapse all files

76
src/main/frontend/db/transact.cljs
View File

@@ -1,76 +0,0 @@
(ns frontend.db.transact
"Provides async transact for use with ldb/transact!"
(:require [clojure.core.async :as async]
[clojure.core.async.impl.protocols :as async-protocols]
[clojure.core.async.interop :refer [p->c]]
[frontend.common.async-util :include-macros true :refer [<?]]
[frontend.state :as state]
[lambdaisland.glogi :as log]
[promesa.core :as p]))
(defonce *request-id (atom 0))
(defonce requests (async/chan 1000))
(defonce *unfinished-request-ids (atom #{}))
(defn request-finished?
"Whether any DB transaction request has been finished"
[]
(empty? @*unfinished-request-ids))
(defn get-next-request-id
[]
(swap! *request-id inc))
(defn add-request!
[request-id request-f]
(let [resp (p/deferred)
new-request {:id request-id
:request request-f
:response resp}]
(swap! *unfinished-request-ids conj request-id)
(async/go
(let [result (async/>! requests new-request)]
(when (false? result)
(log/error ::failed-to-add-transact-request
{:request-id request-id
:requests-chan-closed? (async-protocols/closed? requests)}))))
resp))
(defn remove-request!
[request-id]
(swap! *unfinished-request-ids disj request-id))
(defn- capture-error
[error]
(state/pub-event! [:capture-error
{:error error
:payload {:type :worker-request-failed}}]))
(defn listen-for-requests []
(log/info ::transact-listen-to-requests {})
(async/go-loop []
(when-let [{:keys [id request response]} (async/<! requests)]
(try
(let [result (<? (p->c (request)))]
(if (:ex-data result)
(do
(log/error :worker-request-failed result)
(p/reject! response result)
(capture-error result))
(p/resolve! response result))
(remove-request! id))
(catch :default e
(log/error :worker-request-failed e)
(p/reject! response e)
(capture-error e)
(remove-request! id)))
(recur))))
(defn transact [worker-transact repo tx-data tx-meta]
(let [request-id (get-next-request-id)
tx-meta' (assoc tx-meta
:request-id request-id
;; not from remote(rtc)
:local-tx? true)]
(add-request! request-id (fn async-request []
(worker-transact repo tx-data tx-meta')))))