diff options
author | Matthias Benkard <code@mail.matthias.benkard.de> | 2009-10-12 13:13:14 +0200 |
---|---|---|
committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2009-10-12 13:13:14 +0200 |
commit | 06182430d98220c5ef994216f5031637a738d31b (patch) | |
tree | db05cf9bfc260bce051cf03ef56dcf8538a2543f /macros.lisp | |
parent | d79c7077bf488e0d5c4609fc9d6b31fad7ab2fb9 (diff) |
Add a “canonical” link to the index page.
Ignore-this: 73714c5d314f5faedadd1063b4946d4d
darcs-hash:a725dccc3ce111876d96a5cb9ef84fff3aa19e1c
Diffstat (limited to 'macros.lisp')
-rw-r--r-- | macros.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
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)) |