web/dom: revert automatic export - explicit is better than implicit
This commit is contained in:
parent
c83aa8a007
commit
64dea8453d
1 changed files with 5 additions and 5 deletions
10
web/dom.lisp
10
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)
|
||||
|
|
Loading…
Add table
Reference in a new issue