공사중: feat: backlinks

publisher/src/net/deertopia/publisher/roam.clj

@@ -132,14 +132,14 @@
 (defn backlinks
   "Returns a collection of maps {:id …, :title …}."
   [node]
-  (for [{id :nodes/id, title :nodes/title}
+  (for [{id :nodes/id title :nodes/title}
         (sql/execute! (ds) ["select distinct nodes.id, nodes.title from links
-                           inner join nodes
-                           on nodes.id = links.source
-                           where links.dest = ?"
-                          (elisp/print (:id node))])
-        :let [id (elisp/read-string id)]
-        :when (graph-visible? (get-node (UUID/fromString id)))]
+                             inner join nodes
+                             on nodes.id = links.source
+                             where links.dest = ?"
+                            (elisp/print (str (:id node)))])
+        :when (-> id elisp/read-string parse-uuid
+                  get-node public?)]
     {:id id
      :title (elisp/read-string title)}))