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-05-27 15:23:14 +09:00
parent e18c9097e2
commit 145c01a7c4
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/hsx.lisp
View file

@ -32,7 +32,7 @@
(defparameter *builtin-elements* (make-hash-table)) (defparameter *builtin-elements* (make-hash-table))
(defmacro define-and-export-builtin-elements (&body names) (defmacro define-and-export-builtin-elements (&rest names)
`(progn `(progn
,@(mapcan (lambda (name) ,@(mapcan (lambda (name)
(list `(defhsx ,name ,(string-downcase name)) (list `(defhsx ,name ,(string-downcase name))
@ -41,8 +41,8 @@
names))) names)))
(define-and-export-builtin-elements (define-and-export-builtin-elements
; tag-elements ; tag-elements
a abbr address area article aside audio b base bdi bdo blockquote a abbr address area article aside audio b base bdi bdo blockquote
body br button canvas caption cite code col colgroup data datalist body br button canvas caption cite code col colgroup data datalist
dd del details dfn dialog div dl dt em embed fieldset figcaption dd del details dfn dialog div dl dt em embed fieldset figcaption
figure footer form h1 h2 h3 h4 h5 h6 head header hr i iframe figure footer form h1 h2 h3 h4 h5 h6 head header hr i iframe
@ -68,9 +68,9 @@
(defmacro hsx (form) (defmacro hsx (form)
(modify-first-of-lists form (modify-first-of-lists form
#'builtin-element-p #'builtin-element-p
(lambda (node) (lambda (node)
(find-symbol (string node) :hsx/hsx)))) (find-symbol (string node) :hsx/hsx))))
(defun modify-first-of-lists (tree test result) (defun modify-first-of-lists (tree test result)
(if tree (if tree