mirror of
https://github.com/logseq/logseq.git
synced 2026-05-24 12:44:22 +00:00
130 lines
3.2 KiB
Clojure
130 lines
3.2 KiB
Clojure
(ns frontend.worker.state
|
|
"State hub for worker"
|
|
(:require [logseq.common.config :as common-config]
|
|
[logseq.common.util :as common-util]))
|
|
|
|
(defonce *main-thread (atom nil))
|
|
|
|
(defn- <invoke-main-thread*
|
|
[qkw direct-pass-args? args-list]
|
|
(let [main-thread @*main-thread]
|
|
(when (nil? main-thread)
|
|
(prn :<invoke-main-thread-error qkw)
|
|
(throw (ex-info "main-thread has not been initialized" {})))
|
|
(apply main-thread qkw direct-pass-args? args-list)))
|
|
|
|
(defn <invoke-main-thread
|
|
"invoke main thread api"
|
|
[qkw & args]
|
|
(<invoke-main-thread* qkw false args))
|
|
|
|
(comment
|
|
(defn <invoke-main-thread-direct-pass-args
|
|
"invoke main thread api.
|
|
But directly pass args to main-thread(won't do transit-write on them)"
|
|
[qkw & args]
|
|
(<invoke-main-thread* qkw true args)))
|
|
|
|
(defonce *state (atom {:db/latest-transact-time {}
|
|
:worker/context {}
|
|
|
|
;; FIXME: this name :config is too general
|
|
:config {}
|
|
:git/current-repo nil
|
|
|
|
:auth/id-token nil
|
|
:auth/access-token nil
|
|
:auth/refresh-token nil
|
|
|
|
:rtc/downloading-graph? false
|
|
|
|
;; thread atoms, these atoms' value are syncing from ui-thread
|
|
:thread-atom/online-event (atom nil)
|
|
}))
|
|
|
|
(defonce *rtc-ws-url (atom nil))
|
|
|
|
(defonce *sqlite (atom nil))
|
|
;; repo -> {:db conn :search conn :client-ops conn}
|
|
(defonce *sqlite-conns (atom {}))
|
|
;; repo -> conn
|
|
(defonce *datascript-conns (atom nil))
|
|
|
|
;; repo -> conn
|
|
(defonce *client-ops-conns (atom nil))
|
|
|
|
;; repo -> pool
|
|
(defonce *opfs-pools (atom nil))
|
|
|
|
(defn get-sqlite-conn
|
|
([repo] (get-sqlite-conn repo :db))
|
|
([repo which-db]
|
|
(assert (contains? #{:db :search :client-ops} which-db) which-db)
|
|
(get-in @*sqlite-conns [repo which-db])))
|
|
|
|
(defn get-datascript-conn
|
|
[repo]
|
|
(get @*datascript-conns repo))
|
|
|
|
(defn get-client-ops-conn
|
|
[repo]
|
|
(get @*client-ops-conns repo))
|
|
|
|
(defn get-opfs-pool
|
|
[repo]
|
|
(get @*opfs-pools repo))
|
|
|
|
(defn tx-idle?
|
|
[repo & {:keys [diff]
|
|
:or {diff 1000}}]
|
|
(when repo
|
|
(let [last-input-time (get-in @*state [:db/latest-transact-time repo])]
|
|
(or
|
|
(nil? last-input-time)
|
|
|
|
(let [now (common-util/time-ms)]
|
|
(>= (- now last-input-time) diff))))))
|
|
|
|
(defn set-db-latest-tx-time!
|
|
[repo]
|
|
(swap! *state assoc-in [:db/latest-transact-time repo] (common-util/time-ms)))
|
|
|
|
(defn get-context
|
|
[]
|
|
(:worker/context @*state))
|
|
|
|
(defn set-context!
|
|
[context]
|
|
(swap! *state assoc :worker/context context))
|
|
|
|
(defn update-context!
|
|
[context]
|
|
(swap! *state update :worker/context
|
|
(fn [c]
|
|
(merge c context))))
|
|
|
|
(defn get-config
|
|
[repo]
|
|
(get-in @*state [:config repo]))
|
|
|
|
(defn get-current-repo
|
|
[]
|
|
(:git/current-repo @*state))
|
|
|
|
(defn set-new-state!
|
|
[new-state]
|
|
(swap! *state (fn [old-state]
|
|
(merge old-state new-state))))
|
|
|
|
(defn get-date-formatter
|
|
[repo]
|
|
(common-config/get-date-formatter (get-config repo)))
|
|
|
|
(defn set-rtc-downloading-graph!
|
|
[value]
|
|
(swap! *state assoc :rtc/downloading-graph? value))
|
|
|
|
(defn get-id-token
|
|
[]
|
|
(:auth/id-token @*state))
|