From 68d5adf27e738a87e3fec404983b0cc41def50b7 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Sat, 16 Jan 2010 10:10:21 +0100 Subject: =?UTF-8?q?Add=20a=20missing=20piece=20to=20patch=20=E2=80=9CWhen?= =?UTF-8?q?=20viewing=20an=20individual=20journal=20entry,=20include=20a?= =?UTF-8?q?=20meta=20link=20to=20the=20entry's=20comment=20feed.=E2=80=9D?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Ignore-this: ac9109d0b11c2cea5ee166f0b32f3639 darcs-hash:2da80f2983a040883448887ab72559aa1d707e1d --- journal.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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)))))))) -- cgit v1.2.3