cco/cl-scopes
3
0
Fork 0
Code Issues 1 Pull requests Releases Wiki Activity Actions

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

Browse source
This commit is contained in:
Helmut Merz 2024-07-21 10:10:26 +02:00
parent c83aa8a007
commit 64dea8453d
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
web/dom.lisp
View file

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