diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2010-01-15 16:34:16 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2010-01-15 16:34:16 +0100 |
| commit | 34615b4a067ec6e20b968ad6c38ac894c36ecdeb (patch) | |
| tree | 543202531a993f9d92e6b62be21f354dc34b9266 | |
| parent | eab6eebcbdc36ac39c35b0c0f3359efbda2ed338 (diff) | |
Fix the “self” link in individual entries' comment feeds.
Ignore-this: a17685d7605dc70f23e6dd0be6ac7898
darcs-hash:7835fe9cd647281e78ba97e15bed9d177025e884
| -rwxr-xr-x | journal.lisp | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/journal.lisp b/journal.lisp index 37b49fe..a77c7fc 100755 --- a/journal.lisp +++ b/journal.lisp @@ -95,7 +95,9 @@ ("href" ,(link-to :index :absolute t))))) (with-tag ("link" `(("rel" "self") ("type" "application/atom+xml") - ("href" ,(link-to :view-comment-feed :absolute t))))) + ("href" ,(if *post-number* + (link-to :view-comment-feed :post-id *post-number* :absolute t) + (link-to :view-comment-feed :absolute t)))))) (let ((number 0)) (dolist (journal-comment (select 'journal-comment |