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-04-17 16:06:19 +09:00
parent a2b6b1d99a
commit 9b4e206623
2 changed files with 7 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/elements.lisp
View file

@ -228,10 +228,9 @@
(list prop `(attr attrs (make-keyword ',prop))))
props)
(let ((props
(loop :for (key . value) in (attrs-alist attrs)
:unless (member key
',(mapcar #'make-keyword
props))
(loop
:for (key . value) in (attrs-alist attrs)
:unless (member key ',(mapcar #'make-keyword props))
:append (list key value))))
(declare (ignorable props))
(progn ,@body))))))))

6
src/escape.lisp
View file

@ -32,14 +32,12 @@
(with-output-to-string (s)
(loop
:for c :across string
:do (write (escape-char c escape-map)
:stream s :escape nil)))
:do (write (escape-char c escape-map) :stream s :escape nil)))
string))
(defun escape-attrs-alist (alist)
(mapcar (lambda (kv)
(cons (car kv)
(escape-string (cdr kv) *attr-escape-map*)))
(cons (car kv) (escape-string (cdr kv) *attr-escape-map*)))
alist))
(defun escape-children (children)