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 ;; Escape the STRING if it's a STRING and escaping all charaters C that satisfied
;; (FUNCALL TEST C). Return the new STRING after escape. ;; (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 ## Generate HTML string

6
src/escape.lisp
View file

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