diff --git a/web/dom.lisp b/web/dom.lisp index 78a31da..f78db49 100644 --- a/web/dom.lisp +++ b/web/dom.lisp @@ -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)