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

Add examples of button macros

Browse source
This commit is contained in:
Marcus Kammer 2023-07-09 18:19:42 +02:00
parent d8d113dca0
commit 6712c2cc47
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 28 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
src/component/button.lisp
View file

@ -23,11 +23,37 @@
,@(loop for item in names ,@(loop for item in names
for symbol = (intern (concatenate 'string "BTN-" (symbol-name item))) for symbol = (intern (concatenate 'string "BTN-" (symbol-name item)))
for item-name = (format nil "~a" item) for item-name = (format nil "~a" item)
collect `(defmacro ,symbol (&body body) collect `(defmacro ,symbol (&body body) `(btn (:type ,(string ',item-name)) ,@body)))))
`(btn (:type ,(string ',item-name)) ,@body)))))
(define-btns (primary secondary success danger warning info light dark link)) (define-btns (primary secondary success danger warning info light dark link))
;; (defmacro btn-primary (&body body)
;; `(btn (:type "primary") ,@body))
;; (defmacro btn-secondary (&body body)
;; `(btn (:type "secondary") ,@body))
;; (defmacro btn-success (&body body)
;; `(btn (:type "success") ,@body))
;; (defmacro btn-danger (&body body)
;; `(btn (:type "danger") ,@body))
;; (defmacro btn-warning (&body body)
;; `(btn (:type "warning") ,@body))
;; (defmacro btn-info (&body body)
;; `(btn (:type "info") ,@body))
;; (defmacro btn-light (&body body)
;; `(btn (:type "light") ,@body))
;; (defmacro btn-dark (&body body)
;; `(btn (:type "dark") ,@body))
;; (defmacro btn-link (&body body)
;; `(btn (:type "link") ,@body))
;; (defmacro btn-primary-lg (&body body) ;; (defmacro btn-primary-lg (&body body)
;; `(btn (:type "primary" :size "lg") ,@body)) ;; `(btn (:type "primary" :size "lg") ,@body))