marcuskammer/dev.metalisp.sbt
1
1
Fork 0
Code Issues 1 Pull requests Projects 1 Releases Packages Wiki Activity Actions

Update docstring for define-btns

Browse source
This commit is contained in:
Marcus Kammer 2023-07-13 09:07:02 +02:00
parent 41239ab183
commit ce2d03d6fe
1 changed files with 9 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
src/component/button.lisp
View file

@ -119,9 +119,13 @@
`(btn (:type ,(string ',type-name) :size ,(string ',size-name)) ,@body)))) `(btn (:type ,(string ',type-name) :size ,(string ',size-name)) ,@body))))
(defmacro define-btns (names) (defmacro define-btns (names)
"This macro generates specific button macros based on the provided names. "This macro generates a suite of button-creating macros for each provided button type.
NAMES: A list of button type names. For each name in this list, three macros will be generated: a standard button, a large button, and a small button." NAMES: A list of button type names. Each name should be a string representing a Bootstrap button type (like 'primary', 'secondary', 'success', etc.).
For each type name in NAMES, this macro defines six new macros: a standard button, an outline button, a large button, a small button, a large outline button, and a small outline button.
The newly defined macros, when called, will generate HTML for a Bootstrap button of the corresponding type, size, and outline style."
`(progn `(progn
,@(loop for item in names ,@(loop for item in names
@ -129,9 +133,9 @@
collect `(progn collect `(progn
(define-btn ,type-name) (define-btn ,type-name)
(define-btn ,type-name t) (define-btn ,type-name t)
(define-btn ,type-name nil "lg")
(define-btn ,type-name nil "sm")
(define-btn ,type-name t "lg") (define-btn ,type-name t "lg")
(define-btn ,type-name t "sm"))))) (define-btn ,type-name t "sm")
(define-btn ,type-name nil "lg")
(define-btn ,type-name nil "sm")))))
(define-btns (primary secondary success danger warning info light dark link)) (define-btns (primary secondary success danger warning info light dark link))