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

feat(sync): update file-sync remoteapi

Browse Source
This commit is contained in:
rcmerci
2021-12-23 19:58:57 +08:00
parent ef6e159675
commit 2a1648ae2f
1 changed files with 34 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

41
src/main/frontend/fs/sync.cljs
View File

@@ -165,8 +165,11 @@
(defprotocol IRemoteAPI
(get-remote-all-files-meta [this graph-uuid] "get remote all files' metadata")
(get-diff [this graph-uuid from-txid] "get diff from FROM-TXID,
return [txns, latest-txid]"))
(get-remote-files-meta [this graph-uuid filepaths] "get remote files' metadata")
(get-remote-graph [this graph-name-opt graph-uuid-opt] "get graph info by GRAPH-NAME-OPT or GRAPH-UUID-OPT")
(list-remote-graphs [this] "list all remote graphs")
(get-diff [this graph-uuid from-txid] "get diff from FROM-TXID, return [txns, latest-txid]")
(create-graph [this graph-name] "create graph"))
(deftype MockRSAPI []
IRSAPI
@@ -193,20 +196,42 @@
;; TODO
(set! token "<id-token>")
token)
(request [this api-name body]
(go
(let [resp (<! (request api-name body (.get-token this) #(.refresh-token this)))]
(when-not (http/unexceptional-status? (:status resp))
(throw (js/Error. resp)))
(get-resp-json-body resp))))
IRemoteAPI
(get-remote-all-files-meta [this graph-uuid]
(request "get_all_files" {:GraphUUID graph-uuid} (.get-token this) #(.refresh-token this)))
(.request this "get_all_files" {:GraphUUID graph-uuid}))
(get-remote-files-meta [this graph-uuid filepaths]
{:pre [(coll? filepaths)]}
(.request this "get_files_meta" {:GraphUUID graph-uuid :Files filepaths}))
(get-remote-graph [this graph-name-opt graph-uuid-opt]
{:pre [(or graph-name-opt graph-uuid-opt)]}
(.request this "get_graph" (cond-> {}
(seq graph-name-opt)
(assoc :GraphName graph-name-opt)
(seq graph-uuid-opt)
(assoc :GraphUUID graph-uuid-opt))))
(list-remote-graphs [this]
(.request this "list_graphs"))
(get-diff [this graph-uuid from-txid]
(go
(->
(<! (request "get_diff" {:GraphUUID graph-uuid :FromTXId from-txid} (.get-token this) #(.refresh-token this)))
(get-resp-json-body)
(<! (.request this "get_diff" {:GraphUUID graph-uuid :FromTXId from-txid}))
(:Transactions)
((fn [txns] [txns (:TXId (last txns))]))))))
((fn [txns] [txns (:TXId (last txns))])))))
(create-graph [this graph-name]
(.request this "create_graph" {:GraphName graph-name})))
(def remoteapi (->RemoteAPI nil))
(defn- update-txn [^FileTxnSet filetxnset txn]
(let [{:keys [TXType TXContent]} txn]
(case TXType
@@ -255,7 +280,9 @@
repo (state/get-current-repo)]
(apply-filetxns graph-uuid filetxnset)
(.reset_value! graphs-txid [graph-uuid latest-txid] repo)
(persist-var/persist-save graphs-txid)))
(persist-var/persist-save graphs-txid))
;; TODO catch
)
(sync-remote-all-files! graph-uuid-expect))))))
(comment