Initial import of LogDarioSeq baseline

Establishes version control for the personal Logseq DB fork before starting the server-client architecture migration and domain features described in docs/agent-guide and the approved implementation plan. Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
2026-08-25 15:32:15 +02:00
commit 40631362b3
2016 changed files with 543898 additions and 0 deletions
--- a/deps/db-sync/src/logseq/db_sync/node/dispatch.cljs
+++ b/deps/db-sync/src/logseq/db_sync/node/dispatch.cljs
@@ -0,0 +1,76 @@
+(ns logseq.db-sync.node.dispatch
+  (:require [clojure.string :as string]
+            [logseq.db-sync.common :as common]
+            [logseq.db-sync.node.graph :as graph]
+            [logseq.db-sync.node.routes :as node-routes]
+            [logseq.db-sync.platform.core :as platform]
+            [logseq.db-sync.worker.handler.assets :as assets-handler]
+            [logseq.db-sync.worker.handler.index :as index-handler]
+            [logseq.db-sync.worker.handler.sync :as sync-handler]
+            [logseq.db-sync.worker.http :as http]
+            [promesa.core :as p]))
+
+(defn- admin-token-valid?
+  [request env]
+  (let [expected (aget env "DB_SYNC_ADMIN_TOKEN")
+        actual (.get (.-headers request) "x-db-sync-admin-token")]
+    (and (string? expected)
+         (seq expected)
+         (= expected actual))))
+
+(defn handle-node-fetch
+  [{:keys [request env registry deps]}]
+  (let [url (platform/request-url request)
+        path (.-pathname url)
+        method (.-method request)
+        index-self #js {:env env :d1 (aget env "DB")}]
+    (cond
+      (= path "/health")
+      (http/json-response :worker/health {:ok true})
+
+      (or (= path "/graphs")
+          (string/starts-with? path "/graphs/"))
+      (index-handler/handle-fetch index-self request)
+
+      (string/starts-with? path "/e2ee")
+      (index-handler/handle-fetch index-self request)
+
+      (string/starts-with? path "/assets/")
+      (if (= method "OPTIONS")
+        (assets-handler/handle request env)
+        (if-let [{:keys [graph-id]} (assets-handler/parse-asset-path path)]
+          (if (admin-token-valid? request env)
+            (assets-handler/handle request env)
+            (p/let [access-resp (index-handler/graph-access-response request env graph-id)]
+              (if (.-ok access-resp)
+                (assets-handler/handle request env)
+                access-resp)))
+          (http/bad-request "invalid asset path")))
+
+      (= method "OPTIONS")
+      (common/options-response)
+
+      (string/starts-with? path "/sync/")
+      (if-let [{:keys [graph-id tail]} (node-routes/parse-sync-path path)]
+        (if (seq graph-id)
+          (if (= method "OPTIONS")
+            (common/options-response)
+            (if (admin-token-valid? request env)
+              (let [ctx (graph/get-or-create-graph registry deps graph-id)
+                    new-url (js/URL. (str (.-origin url) tail (.-search url)))]
+                (.set (.-searchParams new-url) "graph-id" graph-id)
+                (let [rewritten (platform/request (.toString new-url) request)]
+                  (sync-handler/handle-http ctx rewritten)))
+              (p/let [access-resp (index-handler/graph-access-response request env graph-id)]
+                (if (.-ok access-resp)
+                  (let [ctx (graph/get-or-create-graph registry deps graph-id)
+                        new-url (js/URL. (str (.-origin url) tail (.-search url)))]
+                    (.set (.-searchParams new-url) "graph-id" graph-id)
+                    (let [rewritten (platform/request (.toString new-url) request)]
+                      (sync-handler/handle-http ctx rewritten)))
+                  access-resp))))
+          (http/bad-request "missing graph id"))
+        (http/bad-request "missing graph id"))
+
+      :else
+      (http/not-found))))