From 51275a6551214a734976e079932d8a4a25c898ef Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Sun, 11 Oct 2009 23:05:46 +0200
Subject: =?UTF-8?q?Add=20link=20metainformation=20of=20type=20=E2=80=9Ccan?=
 =?UTF-8?q?onical=E2=80=9D=20to=20journal=20entry=20pages.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Ignore-this: 6f30d444f075ceffa6b73dcbbec859d9

darcs-hash:780d6e4ba21d87f3317c1e30eee3a4fcef261e2b
---
 macros.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'macros.lisp')

diff --git a/macros.lisp b/macros.lisp
index ad4dc4b..bfc3495 100644
--- a/macros.lisp
+++ b/macros.lisp
@@ -38,8 +38,8 @@
   (emit-close-tag "html"))
 
 
-(defmacro with-web-journal ((page-title) &body body)
-  `(call-with-web-journal ,page-title #'(lambda () ,@body)))
+(defmacro with-web-journal ((page-title &key post-id) &body body)
+  `(call-with-web-journal ,page-title #'(lambda () ,@body) :post-id post-id))
 
 
 (defmacro with-result-cache ((cache-id &key (younger-than nil younger-than-p))
-- 
cgit v1.2.3