From e6b65cb7b6c16d1fb9ecb86260dddb1fc0c4b115 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Fri, 5 Oct 2007 15:24:00 +0200
Subject: Support posting and editing journal entries.

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

(limited to 'macros.lisp')

diff --git a/macros.lisp b/macros.lisp
index 179adca..a17891f 100644
--- a/macros.lisp
+++ b/macros.lisp
@@ -34,6 +34,10 @@
   (emit-close-tag "html"))
 
 
+(defmacro with-web-journal ((page-title) &body body)
+  `(call-with-web-journal ,page-title #'(lambda () ,@body)))
+
+
 (defmacro with-result-cache ((cache-id &key (younger-than nil younger-than-p))
                              &body body)
   `(call-with-result-cache ,cache-id
-- 
cgit v1.2.3