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

Format

Browse source
This commit is contained in:
paku 2024-10-03 14:17:16 +09:00
parent 7f276120aa
commit 53a6a8f50e
1 changed files with 12 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
src/utils.lisp
View file

@ -29,25 +29,25 @@
(or (gethash char escape-map)
char))
(defun escape-string (string escape-map)
(if (stringp string)
(with-output-to-string (s)
(defun escape-string (str escape-map)
(if (stringp str)
(with-output-to-string (out)
(loop
:for c :across string
:do (write (escape-char c escape-map) :stream s :escape nil)))
string))
:for c :across str
:do (write (escape-char c escape-map) :stream out :escape nil)))
str))
(defun escape-html-text-content (text)
(escape-string text *text-content-escape-map*))
(defun escape-html-text-content (str)
(escape-string str *text-content-escape-map*))
(defun escape-html-attribute (text)
(escape-string text *attribute-escape-map*))
(defun escape-html-attribute (str)
(escape-string str *attribute-escape-map*))
(defun minify (input-string)
(defun minify (str)
(with-output-to-string (out)
(let ((previous-space-p nil))
(loop
:for char :across input-string
:for char :across str
:do (cond
((whitespace-p char)
(unless previous-space-p