msyds/net-deertopia
1
0
Fork 0
Code Issues 12 Pull Requests Actions Packages Projects Releases Wiki Activity

공사중: feat: backlinks
All checks were successful
build / build (push) Successful in 46s
Details

Browse Source
This commit is contained in:
Madeleine Sydney Slaga
2026-03-28 23:34:59 -06:00
parent 9349293684
commit a32e51b755
1 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
publisher/src/net/deertopia/publisher/roam.clj
View File

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