web/dom: revert automatic export - explicit is better than implicit

This commit is contained in:
Helmut Merz 2024-07-21 10:10:26 +02:00
parent c83aa8a007
commit 64dea8453d

View file

@ -5,7 +5,8 @@
(:local-nicknames (:util :scopes/util)
(:alx :alexandria))
(:export #:elem #:element #:void-element #:render
#:dlist))
#:dlist
#:div #:label))
(in-package :scopes/web/dom)
@ -49,10 +50,9 @@
(defmacro make-elements (tags &optional (elem-fn 'elem))
`(progn
,@(mapcan (lambda (tag) ;`(make-element ,tag)) tags)))
(list `(defun ,tag (attrs &rest body)
(funcall #',elem-fn ',tag attrs body))
`(export ',tag)))
,@(mapcar (lambda (tag) ;`(make-element ,tag)) tags)))
`(defun ,tag (attrs &rest body)
(funcall #',elem-fn ',tag attrs body)))
tags)))
(eval-when (:compile-toplevel :load-toplevel :execute)