clone/logseq
1
0
Fork 0
mirror of https://github.com/logseq/logseq.git synced 2026-06-01 19:01:22 +00:00
Code Issues Packages Projects Releases Wiki Activity

add publish worker

Browse Source
This commit is contained in:
Tienson Qin
2025-12-27 06:36:33 +08:00
parent 704312b407
commit 2a96243474
10 changed files with 777 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

68
src/main/frontend/handler/publish.cljs
View File

@@ -1,12 +1,15 @@
(ns frontend.handler.publish
"Prepare publish payloads for pages."
(:require [datascript.core :as d]
[frontend.config :as config]
[frontend.db :as db]
[frontend.handler.notification :as notification]
[frontend.state :as state]
[frontend.util :as util]
[logseq.db :as ldb]
[logseq.db.common.entity-util :as entity-util]
[logseq.db.frontend.schema :as db-schema]))
[logseq.db.frontend.schema :as db-schema]
[promesa.core :as p]))
(defn- datom->vec
[datom]
@@ -36,20 +39,73 @@
(map datom->vec (d/datoms db :eavt eid)))
eids)]
{:page (entity-util/entity->map page-entity)
:page-id (:db/id page-entity)
:page-uuid (:block/uuid page-entity)
:block-count (count blocks)
:schema-version (db-schema/schema-version->string db-schema/version)
:datoms (vec datoms)}))
(defn- <sha256-hex
[text]
(p/let [encoder (js/TextEncoder.)
data (.encode encoder text)
digest (.digest (.-subtle js/crypto) "SHA-256" data)
bytes (js/Uint8Array. digest)]
(->> bytes
(map (fn [b]
(.padStart (.toString b 16) 2 "0")))
(apply str))))
(defn- publish-endpoint
[]
(str config/PUBLISH-API-BASE "/pages"))
(defn- <post-publish!
[payload]
(let [token (state/get-auth-id-token)
headers (cond-> {"content-type" "application/transit+json"}
token (assoc "authorization" (str "Bearer " token)))]
(p/let [body (ldb/write-transit-str payload)
content-hash (<sha256-hex body)
graph-uuid (some-> (ldb/get-graph-rtc-uuid (db/get-db)) str)
_ (when-not graph-uuid
(throw (ex-info "Missing graph UUID" {:repo (state/get-current-repo)})))
publish-graph graph-uuid
publish-meta {:page-uuid (:page-uuid payload)
:block-count (:block-count payload)
:schema-version (:schema-version payload)
:publish/format :transit
:publish/compression :none
:publish/content-hash content-hash
:publish/content-length (count body)
:publish/graph publish-graph
:publish/created-at (util/time-ms)}
publish-body (assoc payload
:publish/meta publish-meta)
headers (assoc headers "x-publish-meta" (js/JSON.stringify (clj->js publish-meta)))
resp (js/fetch (publish-endpoint)
(clj->js {:method "POST"
:headers headers
:body (ldb/write-transit-str publish-body)}))]
(if (.-ok resp)
resp
(p/let [body (.text resp)]
(throw (ex-info "Publish failed"
{:status (.-status resp)
:body body})))))))
(defn publish-page!
"Prepares the publish payload for a page. The upload step is stubbed for now."
"Prepares and uploads the publish payload for a page."
[page]
(let [repo (state/get-current-repo)]
(if-let [db* (and repo (db/get-db repo))]
(if (and page (:db/id page))
(let [payload (build-page-publish-datoms db* page)]
(notification/show! "Publish payload prepared." :success)
(js/console.log "Publish payload" (clj->js payload))
payload)
(notification/show! "Publishing page..." :success)
(-> (<post-publish! payload)
(p/then (fn [_resp]
(notification/show! "Page published." :success)))
(p/catch (fn [error]
(js/console.error error)
(notification/show! "Publish failed." :error)))))
(notification/show! "Publish failed: invalid page." :error))
(notification/show! "Publish failed: missing database." :error))))