diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2009-10-11 23:05:46 +0200 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2009-10-11 23:05:46 +0200 |
| commit | 51275a6551214a734976e079932d8a4a25c898ef (patch) | |
| tree | 3e2b26fe80465964f06b2f303e58f9613ae1f139 /macros.lisp | |
| parent | 41cfdbf9dd76b7219d6b55aebd1667a23f46d897 (diff) | |
Add link metainformation of type “canonical” to journal entry pages.
Ignore-this: 6f30d444f075ceffa6b73dcbbec859d9
darcs-hash:780d6e4ba21d87f3317c1e30eee3a4fcef261e2b
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 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)) |