enhance: add alias identity in linked references

src/main/frontend/components/block.cljs

@@ -954,7 +954,7 @@
                (let [tag (:page/name page)]
                  [:a.tag.mx-1 {:key (str "tag-" (:db/id tag))
                                :href (rfe/href :page {:name tag})}
-                 (str "#" tag)])))
+                  (str "#" tag)])))
            tags))))
 
 (defn build-block-part
@@ -1922,12 +1922,15 @@
    (if (:group-by-page? config)
      [:div.flex.flex-col
       (for [[page blocks] blocks]
-        (let [page (db/entity (:db/id page))]
+        (let [alias? (:page/alias? page)
+              page (db/entity (:db/id page))]
           [:div.my-2 (cond-> {:key (str "page-" (:db/id page))}
                        (:ref? config)
                        (assoc :class "color-level px-7 py-2 rounded"))
            (ui/foldable
-            (page-cp config page)
+            [:div
+             (page-cp config page)
+             (when alias? [:span.text-sm.font-medium.opacity-50 " Alias"])]
             (blocks-container blocks config))]))]
      (blocks-container blocks config))])
 

src/main/frontend/db/model.cljs

@@ -888,7 +888,10 @@
                          sort-blocks
                          db-utils/group-by-page
                          (map (fn [[k blocks]]
-                                [k (remove-children! blocks)])))]
+                                (let [k (if (contains? aliases (:db/id k))
+                                          (assoc k :page/alias? true)
+                                          k)]
+                                  [k (remove-children! blocks)]))))]
          result)))))
 
 (defn get-date-scheduled-or-deadlines