paku/hsx
1
0
Fork 0
Code Issues Pull requests Projects Releases 1 Packages Wiki Activity Actions

Fix exported symbols

Browse source
This commit is contained in:
paku 2024-03-11 12:02:00 +09:00
parent 50cb8c006b
commit c393b70231
2 changed files with 3 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
README.md
View file

@ -316,17 +316,6 @@ The `HTML` element is a little special, it's with `<!DOCTYPE html>` prefix to ma
;;
;; Escape the STRING if it's a STRING and escaping all charaters C that satisfied
;; (FUNCALL TEST C). Return the new STRING after escape.
;; Function HTML-ESCAPE-CHAR-P CHAR
;;
;; Return T if CHAR is a CHARACTER that need to be escaped when HTML is UTF-8 encoded.
;; Return NIL otherwise.
;; Function ATTR-VALUE-ESCAPE-CHAR-P CHAR
;;
;; Return T if CHAR is a CHARACTER that need to be escaped when as an attribute value.
;; Return NIL otherwise.
```
## Generate HTML string

6
src/escape.lisp
View file

@ -1,8 +1,8 @@
(uiop:define-package #:piccolo/escape
(:use #:cl)
(:export #:*escape-html*
#:html-escape-char-p
#:attr-value-escape-char-p
#:*html-escape-map*
#:*attr-escape-map*
#:escape-string
#:escape-attrs-alist
#:escape-children))
@ -44,7 +44,7 @@
(defun escape-children (children)
(mapcar (lambda (child)
(if (stringp child)
(if (and (stringp child) *escape-html*)
(escape-string child *html-escape-map*)
child))
children))