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

fix: 비는 backlinks 부분을 만들지 않음

Browse Source
This commit is contained in:
Madeleine Sydney Slaga
2026-04-18 16:19:39 -06:00
parent 55dd22f220
commit 7fbc5c8059
1 changed files with 9 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/net/deertopia/doerg/server.clj
View File

@@ -74,13 +74,15 @@
(or (seq children) raw-link)]]) (or (seq children) raw-link)]])
(defn backlinks-postamble [node] (defn backlinks-postamble [node]
(let [backlinks (roam/backlinks node)]
(when-not (empty? backlinks)
[:section#backlinks [:section#backlinks
[:h2 "Backlinks"] [:h2 "Backlinks"]
[:ul [:ul
(for [n (->> (roam/backlinks node) (for [n (->> backlinks
(sort-by (comp str/lower-case roam/title)))] (sort-by (comp str/lower-case roam/title)))]
[:li (slug-link (roam/slug n) [:li (slug-link (roam/slug n)
(roam/title n))])]]) (roam/title n))])]])))
(defn node-by-slug [{{:keys [slug]} :path-params :as req}] (defn node-by-slug [{{:keys [slug]} :path-params :as req}]
(if-some [node (some-> slug slug/from-string roam/get-node)] (if-some [node (some-> slug slug/from-string roam/get-node)]