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

Add spinner component

Browse source
This commit is contained in:
Marcus Kammer 2023-07-14 14:29:38 +02:00
parent 3457cc3339
commit 8103de49d1
2 changed files with 40 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
cl-sbt.asd
View file

@ -20,7 +20,8 @@
(:file "navbar") (:file "navbar")
(:file "nav-tab") (:file "nav-tab")
(:file "pagination") (:file "pagination")
(:file "table")))) (:file "table")
(:file "spinner"))))
:description "A Common Lisp library for generating Bootstrap-based HTML markup. It provides macros to easily create Bootstrap components such as accordions, alerts, badges, buttons, cards, dropdowns, headers, list groups, navbars, nav-tabs, pagination, and tables. This library is dependent on the Spinneret library for HTML generation." :description "A Common Lisp library for generating Bootstrap-based HTML markup. It provides macros to easily create Bootstrap components such as accordions, alerts, badges, buttons, cards, dropdowns, headers, list groups, navbars, nav-tabs, pagination, and tables. This library is dependent on the Spinneret library for HTML generation."
:in-order-to ((test-op (test-op "cl-sbt/tests")))) :in-order-to ((test-op (test-op "cl-sbt/tests"))))

38
src/component/spinner.lisp Normal file
View file

@ -0,0 +1,38 @@
(defpackage cl-sbt-spinner
(:use :cl)
(:export
:spinner))
(in-package :cl-sbt-spinner)
(defmacro spinner ((&key (type "border") (color "primary")))
"This macro generates a Bootstrap spinner with a specified color.
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'."
`(spinneret:with-html
(:div :class (format nil "spinner-~a text-~a" ,type ,color)
:role "status"
(:span :class "visually-hidden" "Loading..."))))
(defmacro define-spinner (type 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'.
COLOR: Specifies the color of the spinner."
(let ((macro-name (intern (string-upcase (concatenate 'string "SPINNER-" type "-" color)))))
`(defmacro ,macro-name ()
`(spinner (:type ,,type :color ,,color)))))
(defmacro define-spinners (names)
"This macro defines a set of new spinner macros.
NAMES: A list of colors to use for the spinners."
`(progn
,@(loop for item in names
for color = (string-downcase (string item))
collect `(progn
(define-spinner "border" ,color)
(define-spinner "grow" ,color)))))
(define-spinners (primary secondary success danger warning info light dark link))