From 06182430d98220c5ef994216f5031637a738d31b Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Mon, 12 Oct 2009 13:13:14 +0200
Subject: =?UTF-8?q?Add=20a=20=E2=80=9Ccanonical=E2=80=9D=20link=20to=20the?=
 =?UTF-8?q?=20index=20page.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Ignore-this: 73714c5d314f5faedadd1063b4946d4d

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

(limited to 'macros.lisp')

diff --git a/macros.lisp b/macros.lisp
index 0b516f4..4d0124a 100644
--- a/macros.lisp
+++ b/macros.lisp
@@ -41,8 +41,8 @@
   (emit-close-tag "html"))
 
 
-(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-web-journal ((page-title &key canonical-uri) &body body)
+  `(call-with-web-journal ,page-title #'(lambda () ,@body) :canonical-uri ,canonical-uri))
 
 
 (defmacro with-result-cache ((cache-id &key (younger-than nil younger-than-p))
-- 
cgit v1.2.3