From 7fbc5c80590052c55341295c0aeb5875ecbbe44e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Madeleine=20Sydney=20=C5=9Alaga?= Date: Sat, 18 Apr 2026 16:19:39 -0600 Subject: [PATCH] =?UTF-8?q?fix:=20=EB=B9=84=EB=8A=94=20backlinks=20?= =?UTF-8?q?=EB=B6=80=EB=B6=84=EC=9D=84=20=EB=A7=8C=EB=93=A4=EC=A7=80=20?= =?UTF-8?q?=EC=95=8A=EC=9D=8C?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/net/deertopia/doerg/server.clj | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) diff --git a/src/net/deertopia/doerg/server.clj b/src/net/deertopia/doerg/server.clj index 194a9c2..d3bd992 100644 --- a/src/net/deertopia/doerg/server.clj +++ b/src/net/deertopia/doerg/server.clj @@ -74,13 +74,15 @@ (or (seq children) raw-link)]]) (defn backlinks-postamble [node] - [:section#backlinks - [:h2 "Backlinks"] - [:ul - (for [n (->> (roam/backlinks node) - (sort-by (comp str/lower-case roam/title)))] - [:li (slug-link (roam/slug n) - (roam/title n))])]]) + (let [backlinks (roam/backlinks node)] + (when-not (empty? backlinks) + [:section#backlinks + [:h2 "Backlinks"] + [:ul + (for [n (->> backlinks + (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}] (if-some [node (some-> slug slug/from-string roam/get-node)]