summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2010-01-16 10:00:56 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2010-01-16 10:00:56 +0100
commit05a3eb1aa1cb8fcc8d00e7bc264c15412ef67493 (patch)
tree01f0a0dbf84d3d294d13463f0dc89d3c6d2ed50a
parent34615b4a067ec6e20b968ad6c38ac894c36ecdeb (diff)
When viewing an individual journal entry, include a meta link to the entry's comment feed.
Ignore-this: 90b746844391ff56b917c81a622716e1 darcs-hash:b06f0de9f25e8c10e8574be99fdb171a10b8b5fd
-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)