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

refactor: unify the transit-read/write for the return values of the thread-api

Browse Source
This commit is contained in:
rcmerci
2025-03-22 22:44:32 +08:00
parent b99581968a
commit 7ca1fe7569
17 changed files with 154 additions and 212 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
src/main/frontend/handler/db_based/export.cljs
View File

@@ -15,10 +15,9 @@
;; Use editor state to locate most recent block
(if-let [block-uuid (:block-id (first (state/get-editor-args)))]
(when-let [worker @state/*db-worker]
(p/let [result* (worker :general/export-edn
(state/get-current-repo)
(ldb/write-transit-str {:export-type :block :block-id [:block/uuid block-uuid]}))
result (ldb/read-transit-str result*)
(p/let [result (worker :general/export-edn
(state/get-current-repo)
(ldb/write-transit-str {:export-type :block :block-id [:block/uuid block-uuid]}))
pull-data (with-out-str (pprint/pprint result))]
(.writeText js/navigator.clipboard pull-data)
(println pull-data)
@@ -28,10 +27,9 @@
(defn export-view-nodes-data [nodes]
(let [block-uuids (mapv #(vector :block/uuid (:block/uuid %)) nodes)]
(when-let [worker @state/*db-worker]
(p/let [result* (worker :general/export-edn
(state/get-current-repo)
(ldb/write-transit-str {:export-type :view-nodes :node-ids block-uuids}))
result (ldb/read-transit-str result*)
(p/let [result (worker :general/export-edn
(state/get-current-repo)
(ldb/write-transit-str {:export-type :view-nodes :node-ids block-uuids}))
pull-data (with-out-str (pprint/pprint result))]
(.writeText js/navigator.clipboard pull-data)
(println pull-data)
@@ -40,9 +38,8 @@
(defn ^:export export-page-data []
(if-let [page-id (page-util/get-current-page-id)]
(when-let [worker @state/*db-worker]
(p/let [result* (worker :general/export-edn
(state/get-current-repo) (ldb/write-transit-str {:export-type :page :page-id page-id}))
result (ldb/read-transit-str result*)
(p/let [result (worker :general/export-edn
(state/get-current-repo) (ldb/write-transit-str {:export-type :page :page-id page-id}))
pull-data (with-out-str (pprint/pprint result))]
(.writeText js/navigator.clipboard pull-data)
(println pull-data)
@@ -51,9 +48,8 @@
(defn ^:export export-graph-ontology-data []
(when-let [worker @state/*db-worker]
(p/let [result* (worker :general/export-edn
(state/get-current-repo) (ldb/write-transit-str {:export-type :graph-ontology}))
result (ldb/read-transit-str result*)
(p/let [result (worker :general/export-edn
(state/get-current-repo) (ldb/write-transit-str {:export-type :graph-ontology}))
pull-data (with-out-str (pprint/pprint result))]
(.writeText js/navigator.clipboard pull-data)
(println pull-data)
@@ -63,11 +59,10 @@
(defn- export-graph-edn-data []
(when-let [worker @state/*db-worker]
(p/let [result* (worker :general/export-edn
(state/get-current-repo)
(ldb/write-transit-str {:export-type :graph
:graph-options {:include-timestamps? true}}))
result (ldb/read-transit-str result*)
(p/let [result (worker :general/export-edn
(state/get-current-repo)
(ldb/write-transit-str {:export-type :graph
:graph-options {:include-timestamps? true}}))
pull-data (with-out-str (pprint/pprint result))]
pull-data)))