summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xjournal.lisp6
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)