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

This commit is contained in:
2026-04-18 16:19:39 -06:00
parent 55dd22f220
commit 7fbc5c8059

View File

@@ -74,13 +74,15 @@
(or (seq children) raw-link)]]) (or (seq children) raw-link)]])
(defn backlinks-postamble [node] (defn backlinks-postamble [node]
[:section#backlinks (let [backlinks (roam/backlinks node)]
[:h2 "Backlinks"] (when-not (empty? backlinks)
[:ul [:section#backlinks
(for [n (->> (roam/backlinks node) [:h2 "Backlinks"]
(sort-by (comp str/lower-case roam/title)))] [:ul
[:li (slug-link (roam/slug n) (for [n (->> backlinks
(roam/title n))])]]) (sort-by (comp str/lower-case roam/title)))]
[:li (slug-link (roam/slug 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)]