diff options
author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2011-03-02 14:43:07 +0100 |
---|---|---|
committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2011-03-02 14:43:07 +0100 |
commit | 567516069ec273488e059e9b6e91a4798b5458b9 (patch) | |
tree | cddbc63ec1156d79715524262a917d32a71c07a1 /mulkcms.lisp | |
parent | 4d2fe2ddf0f9dc74576a514652407caa8ac8b5ba (diff) |
Add article template.
Diffstat (limited to 'mulkcms.lisp')
-rw-r--r-- | mulkcms.lisp | 6 |
1 files changed, 6 insertions, 0 deletions
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*)) + |