dev.metalisp.sbt/src/alert.lisp

;;;; alert.lisp
;;;;
;;;; This file defines a package for generating Bootstrap alert components
;;;; using Common Lisp macros.

(defpackage dev.metalisp.sbt/alert
  (:use :cl)
  (:export
   :btn
   :alert
   :alert-primary
   :alert-secondary
   :alert-success
   :alert-danger
   :alert-warning
   :alert-info
   :alert-light
   :alert-dark
   :alert-dismiss-primary
   :alert-dismiss-secondary
   :alert-dismiss-success
   :alert-dismiss-danger
   :alert-dismiss-warning
   :alert-dismiss-info
   :alert-dismiss-light
   :alert-dismiss-dark))

(in-package :dev.metalisp.sbt/alert)

(defmacro btn ()
  "This macro generates the close button used in a Bootstrap alert when it is set to be dismissible."

  `(spinneret:with-html
     (:button :type "button"
              :class "btn-close"
              :data-bs-dismiss "alert"
              :aria-label "Close")))

(defmacro alert ((&key (color "primary") (dismissible nil)) &body body)
  "This macro generates a Bootstrap alert component.

COLOR: Specifies the alert type. Can be 'primary', 'secondary', 'success', 'danger', 'warning', 'info', 'light', or 'dark'. Defaults to 'primary'.

DISMISSIBLE: Specifies whether the alert is dismissible. If true, the alert includes a close button.

BODY: Specifies the content of the alert.

Example usage:
To create a basic alert of type 'danger':
(alert (:role \"danger\") \"This is a dangerous alert. Be careful!\")

To create a dismissible alert of type 'success':
(alert (:type \"success\" :dismissible t) \"Congratulations! You've successfully created a dismissible alert.\")"
  `(spinneret:with-html
     (:div :role "alert"
           :class ,(concatenate 'string (format nil "alert alert-~a" color)
                               (if (null dismissible) nil " alert-dismissible"))
           ,(if (null dismissible) nil `(btn))
           ,@body)))

(defmacro define-alert (color &optional (dismissible nil))
  "This macro defines a new macro for creating a Bootstrap alert of a specific type.

COLOR: The color of the alert (like 'primary', 'secondary', 'success', etc.).

DISMISSIBLE: (optional) Whether the alert should be dismissible.

The newly defined macro, when called, will generate HTML for a Bootstrap
alert of the specified type and dismissibility."
  (let* ((macro-name (intern (string-upcase (concatenate 'string "ALERT-" (if (null dismissible) "" "DISMISS-") color)))))
    `(defmacro ,macro-name (&body body)
       `(alert (:color ,,color :dismissible ,,dismissible) ,@body))))

(defmacro define-alerts (colors)
  "This macro generates specific alert macros based on the provided names.

COLORS: A list of alert type names. For each name in this list, a macro will
be generated: a non-dismissible alert and a dismissible alert of the
specified type."
  `(progn
     ,@(loop for color in colors
             for color-name = (string-downcase (string color))
             collect `(progn
                        (define-alert ,color-name)
                        (define-alert ,color-name t)))))

(define-alerts (primary secondary success danger warning info light dark))