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

Rename ...props to props

Browse source
This commit is contained in:
paku 2024-04-15 22:08:57 +09:00
parent a92d3e9ea2
commit 346fc7cb6c
2 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
README.md
View file

@ -17,7 +17,7 @@ It's
- `nil`: Nothing is rendered.
- `t`: Only the key is rendered.
- non-boolean: The key/value pair is rendered.
- `...props`: If the properties given to a component are not declared with `define-element` macro, they are gathered into `...props` property list. This allows flexible props passing to components.
- `props`: If the properties given to a component are not declared with `define-element` macro, they are gathered into `props` property list. This allows flexible props passing to components.
```lisp
(<>
@ -28,7 +28,7 @@ It's
; <div></div>
(define-element view-more ()
(a ...props
(a props
"View More"))
(view-more :href "/detail" :class "m-1")
@ -36,7 +36,7 @@ It's
; <a href="/detail" class="m-1">View More</a>
(define-element custom-button (variant)
(button `(:class ,variant ,@...props)
(button `(:class ,variant ,@props)
children))
(custom-button :type "submit" :variant "big" :onclick "doSomething()"

6
src/elements.lisp
View file

@ -19,7 +19,7 @@
#:tag
#:children
#:attrs
#:...props
#:props
#:attrs-alist
#:make-attrs
#:copy-attrs
@ -223,13 +223,13 @@
(let ,(mapcar (lambda (prop)
(list prop `(attr attrs (make-keyword ',prop))))
props)
(let ((...props
(let ((props
(loop :for (key . value) in (attrs-alist attrs)
:unless (member key
',(mapcar #'make-keyword
props))
:append (list key value))))
(declare (ignorable ...props))
(declare (ignorable props))
(progn ,@body))))))))
(defmacro ,name (&body attrs-and-children)
`(,',%name ,@attrs-and-children)))))