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

Export element functions

Browse source
This commit is contained in:
paku 2024-04-15 22:45:30 +09:00
parent 6882260bb2
commit 1f588b8a62
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/elements.lisp
View file

@ -14,7 +14,9 @@
#:escape-children #:escape-children
#:*escape-html*) #:*escape-html*)
(:export #:html (:export #:html
#:%html
#:<> #:<>
#:%<>
#:define-element #:define-element
#:tag #:tag
#:children #:children
@ -189,7 +191,8 @@
,@(mapcan (lambda (e) ,@(mapcan (lambda (e)
(list `(define-builtin-element ,e) (list `(define-builtin-element ,e)
`(setf (gethash (make-keyword ',e) *builtin-elements*) t) `(setf (gethash (make-keyword ',e) *builtin-elements*) t)
`(export ',e))) `(export ',e)
`(export ',(symbolicate '% e))))
element-names))) element-names)))
(define-and-export-builtin-elements (define-and-export-builtin-elements