diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2010-01-16 10:10:21 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2010-01-16 10:10:21 +0100 |
| commit | 68d5adf27e738a87e3fec404983b0cc41def50b7 (patch) | |
| tree | 30f72ee95597ea1b2929982ff2363f177872c271 | |
| parent | 05a3eb1aa1cb8fcc8d00e7bc264c15412ef67493 (diff) | |
Add a missing piece to patch “When viewing an individual journal entry, include a meta link to the entry's comment feed.”
Ignore-this: ac9109d0b11c2cea5ee166f0b32f3639
darcs-hash:2da80f2983a040883448887ab72559aa1d707e1d
| -rwxr-xr-x | journal.lisp | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/journal.lisp b/journal.lisp index aff6ed6..49bfc4a 100755 --- a/journal.lisp +++ b/journal.lisp @@ -846,7 +846,8 @@ (ensure-directories-exist file-path) (with-open-file (*standard-output* file-path :direction :output :if-exists :supersede) (with-yaclml-stream *standard-output* - (let ((*mode* :file)) + (let ((*mode* :file) + (*post-number* id)) (with-web-journal (title :canonical-uri (link-to :view :post-id id :absolute t)) (show-journal-entry entry :comments-p t)))))))) |