From 567516069ec273488e059e9b6e91a4798b5458b9 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Wed, 2 Mar 2011 14:43:07 +0100
Subject: Add article template.

---
 mulkcms.lisp | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'mulkcms.lisp')

diff --git a/mulkcms.lisp b/mulkcms.lisp
index 7f427b1..444cafa 100644
--- a/mulkcms.lisp
+++ b/mulkcms.lisp
@@ -3,3 +3,9 @@
 (defparameter *database-connection-spec*
   (list *database-name* *database-user* *database-password* *database-host*))
 
+(unless (member "html" *template-filters* :key #'car :test #'equal)
+  (push `("html" . ,(lambda (x) (cl-who:escape-string (string x))))
+        *template-filters*)
+  (push `("html-attr-value" . ,(lambda (x) (cl-who:escape-string (string x))))
+        *template-filters*))
+
-- 
cgit v1.2.3