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)]