diff --git a/publisher/src/net/deertopia/publisher/roam.clj b/publisher/src/net/deertopia/publisher/roam.clj index c281d3c..ac3fcca 100644 --- a/publisher/src/net/deertopia/publisher/roam.clj +++ b/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)}))