When viewing an individual journal entry, include a meta link to the entry's comment feed.

Ignore-this: 90b746844391ff56b917c81a622716e1

darcs-hash:b06f0de9f25e8c10e8574be99fdb171a10b8b5fd

1 files changed, 6 insertions, 0 deletions

diff --git a/journal.lisp b/journal.lisp
index a77c7fc..aff6ed6 100755
--- a/journal.lisp
+++ b/journal.lisp
@@ -479,6 +479,12 @@
             :type "application/atom+xml"
             :href (link-to :view-comment-feed)
             :title "Kompottkins weiser Kommentarfeed")
+    (when *post-number*
+      (let ((entry find-entry *post-number*))
+        (<:link :rel "replies"
+                :type "application/atom+xml"
+                :href (link-to :view-comment-feed :post-id *post-number* :absolute t)
+                :title (format nil "Kommentare zu: ~A" (title-of entry)))))
     (<:link :rel "service.feed"
             :type "application/atom+xml"
             :href (link-to :view-atom-entry :absolute t)