diff options
| -rwxr-xr-x | journal.lisp | 6 |
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) |