blob: fbbbb567bf4d55e9a61514b574e3138d28fdf4ff (
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-formatters* :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*))
|
