From 415bb34ffbf3e888972025dc7aada6bdf19861e1 Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Thu, 3 Mar 2011 16:48:04 +0100 Subject: =?UTF-8?q?Add=20=E2=80=9Chtml=E2=80=9D=20and=20=E2=80=9Chtml-attr?= =?UTF-8?q?-value=E2=80=9D=20formatters.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- formatters.lisp | 46 ++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 46 insertions(+) create mode 100644 formatters.lisp (limited to 'formatters.lisp') diff --git a/formatters.lisp b/formatters.lisp new file mode 100644 index 0000000..6d86a98 --- /dev/null +++ b/formatters.lisp @@ -0,0 +1,46 @@ +;; -*- mode: lisp; coding: utf-8 -*- +;; +;; Copyright 2011, Matthias Andreas Benkard. +;; +;; Licensed under the Apache License, Version 2.0 (the "License"); +;; you may not use this file except in compliance with the License. +;; You may obtain a copy of the License at +;; +;; http://www.apache.org/licenses/LICENSE-2.0 +;; +;; Unless required by applicable law or agreed to in writing, software +;; distributed under the License is distributed on an "AS IS" BASIS, +;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +;; See the License for the specific language governing permissions and +;; limitations under the License. + + +(in-package #:json-template) + + +(defun make-escaper (replacements) + (let* ((escapees (mapcar #'car replacements)) + (escapee-p (lambda (x) (member x escapees :test #'char=)))) + (lambda (string) + (with-output-to-string (out) + (loop with position = 0 + for escapee-pos = (position-if escapee-p string :start position) + while escapee-pos + do (write-string string out :start position :end escapee-pos) + (write-string (cdr (assoc (char string escapee-pos) + replacements)) + out) + (setq position (1+ escapee-pos)) + finally (write-string string out :start position)))))) + + +(defvar *template-formatters* + `(("html" . ,(make-escaper '((#\< . "<") + (#\> . "?") + (#\& . "&")))) + ("html-attr-value" . ,(make-escaper '((#\< . "<") + (#\> . "?") + (#\& . "&") + (#\' . "'") + (#\" . """)))) + ("raw" . identity))) -- cgit v1.2.3