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

Add a size property to spinner component

Browse source
This commit is contained in:
Marcus Kammer 2023-07-14 16:07:47 +02:00
parent 5d167d0720
commit 22d3f73115
1 changed files with 12 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
src/component/spinner.lisp
View file

@ -41,24 +41,27 @@
(in-package :cl-sbt-spinner) (in-package :cl-sbt-spinner)
(defmacro spinner ((&key (type "border") (color "primary"))) (defmacro spinner ((&key (type "border") (color "primary") (size nil)))
"This macro generates a Bootstrap spinner with a specified color. "This macro generates a Bootstrap spinner with a specified color.
TYPE: Specifies the spinner style. Can be 'border' or 'grow'. Defaults to 'border'. TYPE: Specifies the spinner style. Can be 'border' or 'grow'. Defaults to 'border'.
COLOR: Specifies the spinner color. Can be 'primary', 'secondary', 'success', 'danger', 'warning', 'info', 'light', 'dark', or 'link'. Defaults to 'primary'." COLOR: Specifies the spinner color. Can be 'primary', 'secondary', 'success', 'danger', 'warning', 'info', 'light', 'dark', or 'link'. Defaults to 'primary'."
`(spinneret:with-html `(spinneret:with-html
(:div :class (format nil "spinner-~a text-~a" ,type ,color) (:div :class ,(if (null size)
(format nil "spinner-~a text-~a" type color)
(format nil "spinner-~a spinner-~a-~a text-~a" type type size color))
:role "status" :role "status"
(:span :class "visually-hidden" "Loading...")))) (:span :class "visually-hidden" "Loading..."))))
(defmacro define-spinner (type color) (defmacro define-spinner (type color size)
"This macro defines a new spinner macro with a specified style and color. "This macro defines a new spinner macro with a specified style and color.
TYPE: Specifies the style of the spinner. It can be 'border' or 'grow'. TYPE: Specifies the style of the spinner. It can be 'border' or 'grow'.
COLOR: Specifies the color of the spinner." COLOR: Specifies the color of the spinner."
(let ((macro-name (intern (string-upcase (concatenate 'string "SPINNER-" type "-" color))))) (let* ((size-name (if (null size) "" (format nil "-~a" size)))
(macro-name (intern (string-upcase (concatenate 'string "SPINNER-" type "-" color size-name)))))
`(defmacro ,macro-name () `(defmacro ,macro-name ()
`(spinner (:type ,,type :color ,,color))))) `(spinner (:type ,,type :color ,,color :size ,,size)))))
(defmacro define-spinners (names) (defmacro define-spinners (names)
"This macro defines a set of new spinner macros. "This macro defines a set of new spinner macros.
@ -68,7 +71,9 @@ NAMES: A list of colors to use for the spinners."
,@(loop for item in names ,@(loop for item in names
for color = (string-downcase (string item)) for color = (string-downcase (string item))
collect `(progn collect `(progn
(define-spinner "border" ,color) (define-spinner "border" ,color nil)
(define-spinner "grow" ,color))))) (define-spinner "grow" ,color nil)
(define-spinner "border" ,color "sm")
(define-spinner "grow" ,color "sm")))))
(define-spinners (primary secondary success danger warning info light dark)) (define-spinners (primary secondary success danger warning info light dark))