wip: shape links

src/main/frontend/components/search.cljs

@@ -116,7 +116,8 @@
   [repo search-q {:keys [type data alias]}]
   (search-handler/add-search-to-recent! repo search-q)
   (search-handler/clear-search!)
-  (let [whiteboard? (whiteboard-handler/whiteboard-mode?)]
+  (let [whiteboard? (whiteboard-handler/whiteboard-mode?)
+        search-mode (:search/mode @state/state)]
     (case type
       :graph-add-filter
       (state/add-graph-search-filter! search-q)
@@ -127,6 +128,10 @@
         (when whiteboard?
           (whiteboard-handler/create-page! search-q)))
 
+      :go-to-whiteboard
+      (route/redirect! {:to :whiteboard
+                        :path-params {:name search-q}})
+
       :page
       (let [data (or alias data)]
         (if whiteboard?
@@ -199,6 +204,11 @@
        [:div.text.font-bold (str (t :new-page) ": ")
         [:span.ml-1 (str "\"" search-q "\"")]]
 
+       :go-to-whiteboard
+       [:div.text.font-bold (str (t :go-to-whiteboard) ": ")
+        [:span.ml-1 (str "\"" search-q "\"")]]
+
+
        :page
        [:span {:data-page-ref data}
         (when alias
@@ -247,9 +257,16 @@
                       all?)
                    []
                    [{:type :new-page}])
-        result (if config/publishing?
+        go-to-whiteboard [{:type :go-to-whiteboard}]
+        result (cond
+                 config/publishing?
                  (concat pages files blocks)
-                 (concat new-page pages files blocks))
+
+                 (= :whiteboard/link search-mode)
+                 (concat pages blocks)
+
+                 :else
+                 (concat new-page go-to-whiteboard pages files blocks))
         result (if (= search-mode :graph)
                  [{:type :graph-add-filter}]
                  result)
@@ -344,8 +361,17 @@
                                 (search-result-item "Page" original-name))
                         nil))}))])
 
-(def default-placeholder
+(defn default-placeholder
-  (if config/publishing? (t :search/publishing) (t :search)))
+  [search-mode]
+  (cond
+    config/publishing?
+    (t :search/publishing)
+
+    (= search-mode :whiteboard/link)
+    (t :whiteboard/link-whiteboard-or-block)
+
+    :else
+    (t :search)))
 
 (rum/defcs search-modal < rum/reactive
   (shortcut/disable-all-shortcuts)
@@ -371,7 +397,7 @@
                          (t :graph-search)
                          :page
                          (t :page-search)
-                         default-placeholder)
+                         (default-placeholder search-mode))
         :auto-complete (if (util/chrome?) "chrome-off" "off") ; off not working here
         :value         search-q
         :on-change     (fn [e]

src/main/frontend/components/whiteboard.cljs

@@ -37,5 +37,6 @@
         tldr-name (str "draws/" name ".tldr")]
     [:div.absolute.w-full.h-full
      ;; makes sure the whiteboard will not cover the borders
-     {:style {:padding "0.5px"}}
+     {:key name
+      :style {:padding "0.5px"}}
      (tldraw-app {:file tldr-name})]))

src/main/frontend/dicts.cljc

@@ -208,9 +208,11 @@
         :unlink "unlink"
         :search/publishing "Search"
         :search "Search or create page"
+        :whiteboard/link-whiteboard-or-block "Link whiteboard/page/block"
         :page-search "Search in the current page"
         :graph-search "Search graph"
         :new-page "New page"
+        :go-to-whiteboard "Go to whiteboard"
         :new-file "New file"
         :new-graph "Add new graph"
         :graph "Graph"

src/main/frontend/extensions/tldraw.cljs

@@ -38,7 +38,10 @@
                                (draw-handler/save-draw! file s)))
                 :model data
                 :onApp (fn [app]
-                         (state/set-state! [:ui/whiteboards (::id state)] app))})])))
+                         (state/set-state! [:ui/whiteboards (::id state)] app)
+                         (gobj/set app "pubEvent"
+                                   (fn [type & args]
+                                     (state/pub-event! (cons (keyword type) args)))))})])))
 
 (rum/defc tldraw-app
   [option]

src/main/frontend/handler/events.cljs

@@ -401,6 +401,10 @@
            template
            {:target page}))))))
 
+(defmethod handle :tldraw-link [[_ shapes]]
+  (route-handler/go-to-search! :whiteboard/link)
+  (state/set-state! :whiteboard/linked-shapes shapes))
+
 (defn run!
   []
   (let [chan (state/get-events-chan)]

tldraw/apps/tldraw-logseq/src/components/ContextBar/ContextBar.tsx

@@ -135,6 +135,7 @@ const _ContextBar: TLContextBarComponent<Shape> = ({
             ) : null}
           </>
         )}
+        <a class="shape-link" onClick={() => app.pubEvent("tldraw-link", shapes)}>Link</a>
       </div>
     </HTMLContainer>
   )