diff options
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*)) + |