From 914a015c3710b19c9bc72f2621646b7b23d1d30c Mon Sep 17 00:00:00 2001
From: Tienson Qin <tiensonqin@gmail.com>
Date: Sun, 7 Apr 2024 14:56:39 +0800
Subject: [PATCH] fix: document title

---
 src/main/frontend/components/page.cljs |  4 ++-
 src/main/frontend/handler/route.cljs   | 41 ++++++++++++--------------
 2 files changed, 22 insertions(+), 23 deletions(-)

diff --git a/src/main/frontend/components/page.cljs b/src/main/frontend/components/page.cljs
index 7d77e0016..b5a5714d4 100644
--- a/src/main/frontend/components/page.cljs
+++ b/src/main/frontend/components/page.cljs
@@ -450,7 +450,9 @@
   {:init (fn [state]
            (let [page-name (:page-name (first (:rum/args state)))
                  page-name' (get-sanity-page-name state page-name)]
-             (db-async/<get-block (state/get-current-repo) page-name')
+             (p/do!
+              (db-async/<get-block (state/get-current-repo) page-name')
+              (route-handler/update-page-title-and-label! (state/get-route-match)))
              (assoc state ::page-name page-name')))}
   [state {:keys [repo page-name preview? sidebar?] :as option}]
   (let [loading? (when (::page-name state)  (state/sub-async-query-loading (::page-name state)))]
diff --git a/src/main/frontend/handler/route.cljs b/src/main/frontend/handler/route.cljs
index 9f30345c3..f9a45a6d7 100644
--- a/src/main/frontend/handler/route.cljs
+++ b/src/main/frontend/handler/route.cljs
@@ -128,27 +128,19 @@
     "Create a new page"
     :page
     (let [name (:name path-params)
-          block? (util/uuid-string? name)]
-      (if block?
-        (if-let [block (db/entity [:block/uuid (uuid name)])]
-          (let [content (text/remove-level-spaces (:block/content block)
-                                                  (:block/format block) (config/get-block-pattern (:block/format block)))]
-            (if (> (count content) 48)
-              (str (subs content 0 48) "...")
-              content))
-          "Page no longer exists!!")
-        (let [page (db/get-page name)]
-          (or (:block/original-name page)
-              "Logseq"))))
-    :whiteboard
-    (let [name (:name path-params)
-          block? (util/uuid-string? name)]
-      (str
-       (if block?
-         (t :untitled)
-         (let [page (db/get-page name)]
-           (or (:block/original-name page)
-               "Logseq"))) " - " (t :whiteboard)))
+          page (db/get-page name)
+          page (and (db/page? page) page)
+          block? (util/uuid-string? name)
+          block-title (when (and block? (not page))
+                        (when-let [block (db/entity [:block/uuid (uuid name)])]
+                          (let [content (text/remove-level-spaces (:block/content block)
+                                                                  (:block/format block) (config/get-block-pattern (:block/format block)))]
+                            (if (> (count content) 48)
+                              (str (subs content 0 48) "...")
+                              content))))]
+      (or (:block/original-name page)
+          block-title
+          "Logseq"))
     :tag
     (str "#"  (:name path-params))
     :diff
@@ -172,7 +164,12 @@
   [route]
   (let [{:keys [data]} route]
     (when-let [data-name (:name data)]
-      (set! (. js/document.body.dataset -page) (name data-name)))))
+      (set! (. js/document.body.dataset -page) (get-title data-name (:path-params route))))))
+
+(defn update-page-title-and-label!
+  [route]
+  (update-page-title! route)
+  (update-page-label! route))
 
 (defn jump-to-anchor!
   [anchor-text]