blob: 444cafaf03b5c7d4247baae6a12e971c317538f3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
(in-package #:mulkcms)
(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*))
|
