From 05a3eb1aa1cb8fcc8d00e7bc264c15412ef67493 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Sat, 16 Jan 2010 10:00:56 +0100
Subject: When viewing an individual journal entry, include a meta link to the
 entry's comment feed.

Ignore-this: 90b746844391ff56b917c81a622716e1

darcs-hash:b06f0de9f25e8c10e8574be99fdb171a10b8b5fd
---
 journal.lisp | 6 ++++++
 1 file changed, 6 insertions(+)

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)
-- 
cgit v1.2.3